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FICHE 1OF 1. MADE IN USA. 





IDENTIFICATION 
Product Code: AC-E 776B-M( 
Product Name: CZNCDBO NCV=-11 EXERCISER 
Date: AUGUST 1979 
MAintainer: Diagnostic Engineering 





Copyright (C) 1978, 1979 
Digital Equipment Corporation, MAynard, Mass. 


This software is furnished under a License for use only on a single 
computer system and may be copied only with the inclusion of the above 
copyright notice. This software, or any other vit dete thereof, may not 
be provided or otherwise made available to any other person except for 
use on such system and to one who agrees to these license terms. 
a to and ownership of the software shall at ali times remain in 


The information in this document is subject to change without notice 
and should not be construed as a commitment by Digital Equipment 
Corporation. 


DEC assumes no responsibility for the use or reliability of its 
software on equipment which.1s not supplied by DEC. 
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ABSTRACT 


The 'B’’ version corrected the ‘0'' command. It also corrected 
roblems when no VSVO1 display was present. 
his is a self contained program designed to convert data from 
the GAMMA camera via the NCV11 interface and display it ona 
VSVO1 display. It can be used for camera/interface and | 
joystick setup or for practice in image manipulation. It is 
meant as a exerciser rather than a diagnostic. TOTAL PROGRAM 
CONTROL IS ACCOMPLISHED THRU THE CONSOLE KEYBOARD. THE PROGRAM 
1S NOT CHAINABLE/SCRIPTABLE UNDER XXDP/APT. 


REQUIREMENTS 


Equipment 

1. PDP=-11 FAMILY OR LSI-11 FAMILY Computer 
2. I/0 Terminal (i.e., LA36) 

3. NCV11 Interface 

4 Gamma Camera (OR SUBSTITUTE) 

Equipment = Optional! 


1. 3060 Joystick 
2. VSVO1 DISPLAY 


PRELIMINARY PROGRAMS 
MAINDEC-11=CZNCC SHOULD HAVE PREVIOUSLY BEEN RUN 


Storage 


This program uses ail of lower 12K of memory. 


LOADING PROCEDURE 


Normal procedure tor loading a binary program into memory SHOULD 
BE fol lowed. 


SEQ 0005 
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4.0 STARTING PROCEDURE 


Loading address 200 and starting will initialize the system, 
IDENTIFY THE PROGRAM and wait a keyboARd command. 


5.0 OPERATOR OPTIONS 


5.1 OPERATOR KEYBOARD OPTIONS 


TYPE ‘H’'= HELP OPERATOR AND DISPLAY OR TYPE THIS LIST 

Type ‘N'= Collect new data from camera - clears core matrix FIRST 

Type ‘‘C'= Collect data from camera - starts NCV11, previous core 
matrix data not cleared 

TYPE **X"'= SELECT ANOTHER CAMERA CHANNEL 

Type ‘‘SS'~ be NCV11 data coLLection - also terminates free RUN 


''Z''- Zoom - Set NCV11 TO GAIN 2 


Type 'R''= Regular - SET NCV11 TO GAIN 1 (DEFAULT COND) 
Type W'= Select VSVO1 display a Ist bit map 

pee Select VSVO1 display USING 2nd bit map 

ype 


Display ISOTOPE B (B 

D'- Display data - display selected ISOTOPE 

Type 'L’'’ Get lower threshold from keyboard (default=0) - all 
matrix values less than typed value are not dis ,oxee 

"U''- Get upper threshold from KEYBOARD (default=17777 

All matrix values greater than typed value are NOT 

DISPLAYED 

Type '¥' Free run mode - collect and display new data 
continuously - Type ‘’S'‘ to terminate this mode 

TYPE ‘XK’ SELECT ANOTHER CAMERA CHANNEL 

"'G'= Initialize everything - start fresh 

Joystick calibration NCV11 - use ‘Cntrl C'’ to terminate mode 

TYPE oe DISPLAY INTENSITY TEST PATTERN ON SELECTED DISPLAY - 
THIS FEATURE IS FOR DISPLAY VERIFCATION ONLY 

TYPE *O*’ OTHER TERMINAL TO CONTROL THE PROGRAM 


‘A Display ISOTOPE A (default cond) 
a GAMMA ) 


Type ‘‘Cntri & C’' = Abort whatever - back to keyboard monitor 


5.2 OPERATOR SWITCH REGISTER OPTION(S) 
NONE 


F 
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SEQ 0005 
6.0 RECOMMENDED OPERATOR ACTION 


6.1 Camera/A017 Setup 


1, Place radioactive flood source IN FRONT OF CAMERA DETECTOR, 
OR USE A WEAK RADIOACTIVE SAMPLE ABOUT 3 FEET FROM A DETECTOR 
WITH THE COLLIMATOR REMOVED. 


2. Collect data (C) and display (D) 


3. Adjust the X and Y gain controls ON THE AQ17 until a_ round 
circles IS SEEN and centered within the box on screen. 


4. Increase the circle* size until the edges just begin to TOUCH 
THE BOX. 


5. Collect data for a 3 minute period and observe the image. If 
there is an artifact on the center of the screen that looks 
like a right angle bracket, the ‘Z'' delay circuit should be adjusted. 


6. IF THE MATRIX AND Z COUNTS EQUAL Q THEN NO DATA WAS 
COLLECTED, THEREFORE, NO DISPLAY. 


* THIS MAY BE A HEXAGON FOR SOME MAKES OF CAMERA. 


6.2 Joystick Setup 


1. Select Joystick configration by typing ‘J"’. 


2. Adjust the Y Pot on the H3060 Joystick so that the HORIZONTAL cross hair 
provide UNIFORM access within the box drawn on the screen. 
ADJUST THE X POT ON THE H3060 SO THAT THE VERTICAL CROSS HAIR WILL 
ALSO BE UNIFORM EXCEPT THAT DUE TO A HARDWARE OFFSET WILL NOT REACH 
THE RIGHT EDGE AND EXCEED THE LEFT EDGE BY THE SAME AMOUNT. 
Ideally, a physcial center of the Joystick will provide a point 
approximately centered in the box. 


3. Check that when the Joystick interrupt SWITCH is depressed the 
CROSS HAIRS DO not follow the Joystick. 


4. A‘Cntrl C’ will return user back to the keyboard monitor. - 
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MISCELLANEOUS 
Device Bus Address Modifications 
NCV11 Modify location ‘NCVADR'' if base bus address is not 
772760 
vsv01 Modify location ‘VTVADR"’ if base bus address (CHARACTER 


GENERATOR) IS NOT 772600 
MODIFY LOCATION ‘‘VTMADR’’ IF BASE BUS ADDRESS (BIT MAP) 
IS NOT 772620 


Note: A restart is required after any of the above address 
modifications. 


Free Run Mode (Type °*¥*’) 

Modification of location ‘"‘TIME’’ will alter the data collection 
time in the free run mode. The default value of 20(8) provides 
about 10 SECONDS ON AN iSI-11 CPU. 

Error Reporting 

1. INCORRECT KEYBOARD COMMANDS ARE R’ SPONDED WITH °?° 


2. A MESSAGE WILL BE REPORTED IF ANY SELECTED DEVICE (SEE SECTION 7.1) 
DOES NOT RESPOND. 


Fxecution Time 


The EXECUTION TIME is completeiy dependent upon the user for 
whatever option selected. 
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8.0 PROGRAM DESCRIPTION 


8.1 


8.2 


Data Collection & Display 


The user may collect data from the gamma camera system via the 
NCV11_ interface and display this data on 

the VSVO1 (bitmap) display. All functions are ENTERED thru the 
keyboard as defined in section 5.1. When the data collection 
mode is selected the NCV11 is receiving X & Y data from the gamma 
camera (looking AT a radioactive source). This information is 
transformed via THE address maker LOGIC which forms a_ unique 
address within a defined matrix relative to the scan position of 
the camera. The NCV11 preforms an NPR increment to memory to this 
UNIQUE address. The program selects the address MATRIX 64x64x16 
(RESOLUTION 2) OFFSET TO address 20000(8) FOR THE ‘A’ Isotope, 


-AND FOR THE °"B* ISOTOPE, (CAMERAS EQUIPPED WITH THE DUAL ISOTOPE 


ATTACHMENT) INFORMATION VIA B GAMMA LOGIC IS STORED STARTING AT 
ADDRESS 40000 (8). The intensity of each cell (memory location) 
of the image in memory is adjusted with the upper and lower 
thresholds and scaled to OF 16 intensity levelS. 

The cell with the highest count represents’ THE 

HIGHEST intensity level, therefore appears brightest on the 
display. At the completion of the image display, the _ foilowing 
parameters are displayed: 


Lower Threshold - ALl values greater than this value-~ are 


displayed ; 
Upper Threshold All values above this value are omitted 
CAMERA 


SELECTED CAMERA CHANNEL 


PB UP/DN INDICATOR OF THE PUSH BUTTON STATE DURING LAST COLLECTION 
JB UP/DN INDICATOR OF THE JOY BUTTON STATE DURING LAST COLLECTION 
Z Count 32 bit counter of EVENT pulses 


MatRix Count Total count of the contents of each cell in 
the 64x64 matrix 
Zoom - Displayed if gain was selected 


B-Gamma - Displayed if °B" Isotope selected 


Joystick Mode 


Selecting the TEST takes advantage of the Joystick 

mode provided by the NCV11. This mode selects the JOYSTICK inputs 
and the NCV11 performs Like aN A/D with the X & Y CONVERTED values 
available im X-Y holding register. The X and Y data 1s applied 


to the display ana should conform to the requirements in section 6.2. 


HF YSVO1 uses the K & Y cross hairs as the DISPLAY indicator. 
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set NCV11 EXERCISER MACY11 30G(1063) 
31=AUG-79 11:21 


009001 
160000 
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177776 
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;DEVELOPED USING SYSMAC.C3 
-TITLE CZNCDB NCV11 EXERCISER 
;*COPYRIGHT (C) 1979 

;*DIGITAL EQUIPMENT CORP. 

5 SAAD MASS. 01754 


: #PROGRAM BY R.SHOOP 

S eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 

-* 


$TN 

Some 160000 ‘HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
SE=172760 :DEFAULT NCV11 ADDRESS 

.SBITL mASIC DEF INI TIONS 


;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 


“EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE > :BASIC DEFINITION OF SCOPE CALL 
: *MISCELLANEOUS DEFINITIONS 
HT= 17 -:CODE FOR HORIZONTAL TAB 
LF = 12 -:CODE FOR LINE FEED 
CR= 15 -:CODE FOR CARRIAGE RETURN 
CRLF= 200 -:CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 -=PROCESSOR STATUS WORD 
-FQUIV PS,PSW 
STKLMT= 177774 ;zSTACK LIMIT REGISTER 
PIRQ= 177772 PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 = :HARDWARE SWITCH REGISTER 


DDISP= 177570 ; ;HARDWARE DISPLAY REGISTER 


en eee REGISTER DEFINITIONS 


; GENERAL REGISTER 


R1= %1 ;; GENERAL REGISTER 
R2= %2 :; GENERAL REGISTER 
R3= %3 3; GENERAL REGISTER 
R4= %4 >: GENERAL REGISTER 
R5= 45 ; GENERAL REGISTER 
R6= %6 ; s GENERAL REGISTER 
R7= %7 :GENERAL REGISTER 
SP= %6 : + STACK POINTER 
PC= %7 PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 

PRO= 0 : :PRIORITY LEVEL 0 
PR1= ::PRIORITY LEVEL 1 
PR2= 100 ::PRIORITY LEVEL 2 
PR3= 140 >:PRIORITY LEVEL 3 
PR4= 200 > PRIORITY LEVEL 4 
PR5= 240 ::PRIORITY LEVEL 5 
PR6= 300 >; ;PRIORITY LEVEL 6 
PR7= 340 ::;PRIORITY LEVEL 7 


:*' "SWITCH REGISTER’’ SWITCH DEFINITIONS 


kK 
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CZNCDB.P11 31=AUG-79 11:21 BASIC DEFINITIONS SEQ 0010 
(1) 100000 Sw15= 100000 
(1) 040000 SW14= 40000 
(1) 020000 Sw13= 20000 
(1) 010000 Swi2= 10000 
(1) 004000 SWw11= 4000 
(1) 002000 Swi0= 2000 
(1) 001000 SwO9= 1000 
(1) SwO8= 400 
(1) 000200 SwO7= 200 
(1) 000100 SwO6= 100 
(1) 0 swOS= 4 
(1) 20 Sw04= 20 
(1) 000010 SwO3= 10 
(1) SWO2= 4 
(1) 0002 SwOl= 2 
(1) 000001 SwOO= ‘1 
(1) EQUIV SWO9,SW9 
(1) EQUIV Sw08,Sw8 
(1) EQUIV SWO7,SW7 
(1) EQUIV Sw06, 
(1) EQUIV Sw0S,Sw5 
(1) EQUIV SW04,SW4 
(1) EQUIV Sw03,SwW3 
(1) EQUIV Sw02,SW2 
(1) EQUIV SWwO1,SW1 
N} EQUIV SWw00,SWO 
(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 
(1) 040000 BIT14= 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) BIT11= 
(1) 002000 BIT10= 2000 
(1) BITO9= 1000 
(1) BITO8= 4006 
(1) BITO7= 200 
(1). 000100 BITO06= 100 
(1) 6ITOS= 40 
(1) 20 BIT04= 20 
(1) 000010 BITO3= 10 
(1) 000004 BITO2= 4 
(1) 000002 BITO1= 2 
(1) 000001 BITOO= 1 
(1) EQUIV BITO9,BIT9 
(1) EQUIV BITO8,BIT8 
(1) EQUIV BITO7,BIT7 
(1) EQUIV BIT06,BIT6 
(1) FQUIV BITOS,BITS 
(1) EQUIV BIT04,BIT4 
(1) EQUIV BIT03,BIT3 
(1) -EQUIV BITO2,BIT2 
(1) -EQUIV BITO1,RI1T1 
1) -EQUIV BITOO,BITO 
(1) :*BASIC ‘'CPU'' TRAP VECTOR ADDRESSES 
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CZNCDB.P11  31-AUG=79 11:21 BASIC DEFINITIONS | SEQ 0011 
(1) ERRVEC= 4 :TIME OUT AND OTHER ERRORS | 
(1) 000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 000014 TBITVEC=14 ad ok BIT 
(1) 000014 TRIVEC= 14 == TRACE T 
(1) 000014 BPTVEC= 14 «BREAKPOINT TRAP (BPT) 

(1) 000020 IOTVEC= 20 : INPUT/OUTPUT TRAP (IOT) **SCOPE*« 
(1) 000024 PWRVEC= 24 : POWER FAIL 

(1) 000030 EMTVEC= 30 ;;EMULATOR TRAP (EMT) **ERROR** 

(1) 000034 TRAPVE (=34 “'TRAP'’ TRAP 

(1) 000060 TKVEC= 60 =: TTY KEYBOARD VECTOR 

(1) TPVEC= 64 :“ TTY PRINTER VECTOR 

D 000240 PIRQVEC=240 : “PROGRAM INTERRUPT REQUEST VECTOR 
13 

14 = SOME COMMON PROGRAM VALUES AND EQUATES 

16 020000 MATRIX=20000 :STARTING ADRS OF MATRIX DATA 

A -SBTTL TRAP CATCHER 

(1) 000000 =0 

(1) :*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘'.+2,HALT'’ 
(1) = *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

CD sade :*LOCATION Q) CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
(1) 000174 000000 DISPREG: .WORD 0 : SOFTWARE DISPLAY REGISTER 
(1) 000176 000000 SWREG: .WORD 0 = SOFTWARE SWITCH REGISTER 
(1) _SBTTL STARTING ADDRESS(ES) 

a 000200 000137 001326 JP ; a#START :: JUMP TO STARTING ADDRESS OF PROGRAM 
20 000100 000104 000340 000002 104.340.RTI -LSI-11 B EVENT 


| M 
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CZNCDB.P11 = 31-AUG=79 11:21 COMMON TAGS SEQ 0012 


4 .SBTTL COMMON TAGS 

(2) 5 FARRAR ARERR AAARARAAKERERAKARAAKRAREARAA AERA RAARRARRAEERE AEE 
(1) :*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

a :>*USED IN THE PROGRAM. 

(1) 001100 .=1100 

(1) 001100 SCMTAG: :: START OF COMMON TAGS 

(1) 001100 S$PASS: .WORD 0 :: CONTAINS PASS COUNT 

(1) 001102 000 STSTNM: .BYTE 0 :: CONTAINS THE rest NUMBER 

(1) 001103 000 SERFLG: .BYTE 0 :: CONTAINS ERROR FLAG 

(1) 001104 SICNT: .WORD 0 : : CONTAINS SUBTEST. ITERATION COUNT 
(1) 001106 000000 $LPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 

(1) 001110 000000 SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000600 SERTTL: .WORD 0 : CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 SITEMB: .BYTE 0 >: CONTAINS ITEM CONTROL BYTE 

(1) 001115 001 SERMAX: .BYTE 1 :: CONTAINS MAX. ERRORS PER TEST 

(13 001116 SERRPC: .WORD 0 :: CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 $GDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘GOOD' DAT 

(1) 001122 $BDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘BAD’ DATA. 
(1) 001124 000000 $GDDAT: .WORD 0 :: CONTAINS "GOOD' DATA 

(1) 001126 000000 $BDDAT: .WORD 0 :: CONTAINS 'BAD' DATA 

(1) 001130 000000 -WORD 0 : ;RESERVED--NOT TO BE USED 

(1) 001132 000000 .WORD 0 

(1) 001134 000 $AUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 

(1) 001135 ' 100 $INTAG: .BYTE 0 :; INTERRUPT MODE INDICATOR 

(1) 001136 O00 00 «WORD 0 

(1) 001140 177570 SWR: .WORD DSWR : ADDRESS OF SWITCH REGISTER 

(1) 001142 177570 DISPLAY: .WORD DDISP : ADDRESS OF DISPLAY REGISTER 

(1) 001144 177560 $TKS: 177560 seTTY KBD STATU S 

(1) 001146 177562 $TKB: 177562 : TTY KBD BUFFER 

(1) 001150 177564 $TPS: 177564 :: TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 :: TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 0CO $NULL: .BYTE 0 Lara NULL CHARACTER FOR FILLS 
(1) 001155 002 - $FILLS: .BYTE 2 :CONTAINS # OF FILLER CHARACTERS ME QUIRED 
(1) 001156 012 $FILLC: .BYTE 12 ; s INSERT FILL CHARS. AFTER A ‘LINE F 
(1) 001157 000 S$TPFLG: .BYTE 0 -* "TERMINAL AVAILABLE'’' FLAG (BIT<O7>=0- YES) 
(1). 001160 077 $QUES: .ASCII /?/ - T QUESTION MARK 

(1) 001161 015 $CRLF: .ASCII <15> «CARRIAGE RETURN 

(1) 001162 000012 $LF: ASCIZ <12> ::LINE FEED 

(2) SD AAA RARER RARER EH 


N 
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CZ7NCDB.P11 31-AUG-79 11:21 ERROR POINTER TABLE SEQ 0013 
HE .SBTTL ERROR POINTER TABLE 
FR. : :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) -*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(1). >*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT? 
(1) > *NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
St : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) y* EM ::POINTS TO THE ERROR MESSAGE 
(1) Z DH -:POINTS TO THE DATA HEADER 
(1) se + BF ::POINTS TO THE DATA 
(1 ;* DF -:POINTS TO THE DATA FORMAT 
(1) 
(1) - 001164 S$ERRTB: © 
22 : THIS PROGRAM DOES NOT USE THE ABOVE ERROR TABLE 
24 
25 
26 
27 
3 
30 , | -NCV11 BUS ADRS ASSIGNMENTS = MODS ARE TO BE MADE HERE 
32 001164 172760 NCADR: ABASE | 
4 :VSVO1 BUS ADRS ASSIGNMENTS (CHAR GEN) - MODS ARE TO BE MADE HERE 
36 001166 172600 VTVADR: 172600 
38 :VSVO1 BUS ADRS ASSIGNMENTS (BIT MAP) - MODS ARE TO BE MADE HERE 
40 001170 172620 VIMADR: 172620 :FIRST MAP 2ND MAP IS 20 HIGHER | 
ae | -COUNTER FOR FREE RUN MODE 
" 001172 000024 TIME: 20. :LOOP COUNTER FOR ''* MODE 
46 001174 000060 . TKVECO: TKVEC :CONSOLE TERMINAL VECTOR 
47 001176 000062 TKVEC1: ‘TKVEC+2 - ADDRESS AN PRIORITY 


By 


Ty 
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172600 
172602 
172604 


172620 


11:21 
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Ram me 
OR POINTER TABLE SEQ 0014 
;NCV11 REGISTER ADDRESS POINTERS 
NCCSR: ABASE ;NCV11 STATUS CONTROL REGISTER 
NCOFF: ABASE+2 ;NCV11 OFFSET REGISTER 
NCWCR: ABASE+4 ;NCV11 WORD COUNT REGISTER 
NCBAR: ABASE+6 ;NCV11 BUS ADDRESS REGISTER / LOW Z COUNT 
NCSFR: ABASE+10 ;NCV11 SPECIAL FUNCTION / JOYSTICK STATUS REGISTER 
NCADM: ABASE+12 ;NCV11 ADDRESS MAKER REGISTER 
NCJOY: ABASE+14 ;NCV11 JOYSTICK DATA REGISTER 
NCBAR1: ABASE+16 ;NCV11 SPARE <SAME AS NCBAR> 
:VSVO1 REGISTER ADDRESS POINTERS (CHARACTER GENERATOR) 
VTVCRG: 172600 ; CHAR/STATUS 
VTVCHP: 172602 :CROSS HAIR POS 
VTVPOS: 172604 > CHAR POS 
:VSVO1 REGISTER ADDRESS POINTERS (BIT MAP) 
VTIVCSR: 172620 ; COMMAND/STATUS 
VTVMAP: 172622 :MAP ADRS 
VTVPX: 172624 :PIXEL wD 
VTVPX1: 172626 ;PIXEL BYTE 
VTVINT: 172630 ; INTENSITY LOOK UP 
; COMMON PROGRAM TAGS AND STORAGE LOCATIONS 

TEMPO: 0 ; COMMON UTILITY LOC 
TEMP1: 0 ; COMMON UTILITY LOC 
TEMP2: OQ ; COMMON UTILITY LOC 
DUMMY1: 0 :OCTAL TEMP LOC. 

DUMMY2: 0 ;OCTAL TEMP LCC. 

INTLUT: Q 
VTVSAV: 6400 ;VSVO1 SET UP - FULL SCREEN, MONO(BLK/WHT), ENA DISPLAY 
MRXADR: 0 ;CURRENT CORE ADRS OF CELL BEING DISPLAYED 
MAPADR: 0 ; CURRENT ADRS OF BIT MAP LD 
PIXCNT: 5 ;CURRENT PIXEL BYTE COUNT 
PIXASM: Q :4 PIXELS ASSEMBLED HERE B18 BIT MAP LD 
KBUFF: 0 : CONTAINS KEYBOARD CHAR TYPED 
TTYOUT: O ;OUTPUT CHAR TO PRINTER 
THLO: Q ;LOW THRESHOLD VALUE APPLIED TO MATRIX CELLS 
THHI]: 177777 ;HIGH THRESHOLD VALUE APPLIED TO MATRIX CELLS 
COMSAV: 0 :SAVED NCV11 CSR CONTENTS WHEN DISPLAYING 
CAMERA: 0 as SELECTION IN BITS 8-9 
GAiN: 0 :GAIN 1=0, GAIN 2=81T10 
TOTSIZ: 4096. :TOTAL # OF CELLS IN MATRIX (ISTOPE A OR B) 

HAR 0 :COUNTS TOTAL # OF CELLS IN MATRIX (ISOTOPE A OR B) 
CPERL: OQ ;CONTAINS LARGEST CELL OF MATRIX WITHIN THRESHOLDS 
ROWCNT: O :COUNTS 64 CELLS EACH ROW OF CORE MATRIX 
TABLEX: MATRIX ;CONTAINS STARTING ADRS OF MATRIX OF SELECTED ISOTOPE 
FREERN: 0 :NON-ZERO SAYS COLLECT NEW DATA & DISPLAY IN FREE RUN MO 
MSELCT: 0 :0 SAYS 1ST BIT MAP, -1 SAYS 2ND BIT MAP(VSVO01) 
BELLEN: 0 :0 SAYS RING BELL ON NO CONVERT, -1 SAYS DON'T 
NOVSV: 0 ;NON-ZERO INDICATES NO VSVO1 DISPLAY 
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GAS SEVER 


001326 


012737 


013746 


012777 


9 11:27 


177777 


001444 
000176 
000174 
000004 
01012u 
004546 
001324 
910242 
001164 
001200 
000002 
001220 
001546 
177434 
010400 


001326 
000006 


005220 


000004 


000004 


177376 
001314 


001274 
177336 


START: 
.SBTTL 


31=AUG-79 
IN PROGRAM 


C 
13:08 PAGE 2 


INITIALIZE THE COMMON TAGS 


;;CLEAR THE COMMON TAGS (S$CMTAG) AREA 


A#STACK 
ss INITIALIZE A FEW VECTORS 


;;SIZE FOR A HARDWARE SWITCH REGISTER. 
;;EQUAL TO A ‘=1"", 


64$: 
65$: 
66$: 


3$: 
NCSET: 


1$: 


START1: 


MOV ASCMTAG,R6 :zFIRST LOCATION TO BE CLEARED 


. ;zCLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
SP ;;SETUP THE STACK POINTER 


ASTRAP ,@ATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
MOV #340, @4TRAPVEC+2;LEVEL 7 
MOV #SPWRDN, AAPWRVEC ; ;POWER_FAILURE VECTOR 
MOV #340, @APWRVEC+2 ;:LEVEL 7 
IF NOT FOUND OR IT IS 


SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV @FERRVEC ,~ (SP) ; 

MOV #64$,aMERRVEC ;;SET 

MOV ADSWR , SWR ;sSETUP FOR A HARDWARE SWICH REGISTER 

MOV #DDISP,DISPLAY + A HARDWARE DISPLAY REGISTER 

CMP #-1 ,aSWR :TRY TO REFERENCE HARDWARE SWR 

BNE 66$ ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
: TAND THE HARDWARE SWR IS NOT = -1 

BR 65$ 5 CET UF IF NO TIMEOUT 

MOV #65$, (SP) ;SET UP FOR TRAP RETURN 


MOV #SWREG, SWR 3zPOINT TO SOFTWARE SWR 
MOV #DISPREG,DISPLAY , 
7; RESTORE ERROR VECTOR 


MOV (SP) +, AERRVEC 
:GO IDENTIFY PROGRAM 


JSR PC,SELCTA ;DEFAULT TO VSVO1 DISPLAY i 


BCC 3$ :BR IF DISPLAY VSVO1 IS T 
INC NOVSV ;SAVE THE FACT NO VSVO1 CONNEC TED 
TYPE »MSG3 ;GO TYPE ‘BUS TIMEOUT ER - VSVO1 DISPLAY‘ 


;GET NCV11 BASE ADRS 

;GET POINTER ADRS 

-SET UP NCV11 REG ADRS PTRS 
REG ADRS 


DD #2,R0 
CMP AVTVCRG,R1 “ALL SET UP? 
BNE NCSET :BR_IF NOT 
MOV #1$,ERRVEC ;SET UP TIMEOUT ADRS 
TST @NCCSR :WILL TRAP TO LOC 4 IF NOT THERE 
BR START1 ;BR IF THERE 
CMP (SP) +, (SP)+ sFIX STACK SINCE NO RTI 
TYPE MSG5 :GO TYPE "BUS TIMEOUT ER - NCV11' 
HAL T :NCV11 NOT SEEN AT ASSIGNED BUS ADRS 
JMP START 
= ae #MERRVEC +2 ,a#ERRVEC ;RESTORE ERR TRAP LOC TO PT TO 6 


;CLR WORLD 
:GO STOP NCV11 & CLR CORE MATRIX 
:SET OFFSET(ADRS 20000) 


JSR PC,NCSTP1 
MOV AMATRIX,@NCOFF 


CLR GAIN : REGULAR en 
MOV AMATRIX,TABLEX ;ISOTOPE A 
CLR THLO =CLEAR LOWER THRESHOLD 


MOV #177777, THHI 
MOV #KBINT ,aTKVECO 


;CEILING THRESHOLD 
;SET KEYBOARD INTR RETURN ADRS 




































SEQ 0015 
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130 001636 012777 000340 
001644 012777 000100 


131 
2 


WW 
iN 


eet ae ot Ue Ld 
SRBIRAF 


140 


el wee ed ee ed ee eed eed od 
MWA UII V1 
OW ONIOMESWR— 


160 


001652 


104401 
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010434 


001316 
001100 
001266 
001702 
001266 


001266 
000101 


177740 
000033 


001746 
001746 


177332 
177272 


31=AUG-79 
INITIALIZE THE COMMON T 


;THIS IS A LIST 


MOV 
MOV 
TYPE 


SO4CHMZEDWEPDNOQMWKOZCrM 


D 
13:08 Sa a 


#340 ,aTKVECT ;SET UP NEW PRIORTY ON INTR 
#100, a$TKS ;SET INTR ENABLE 
MSG6 ;GO ASK FOR KEYBOARD COMMAND (S) 


OF KEYBOARD COMMANDS FOR THE NCV11/DISPLAY/JOYSTICK 


HELP FRAME 

DISPLAY DATA 

ERASE THE SCOPE 

GET LOWER THRESHOLD FROM KEYBOARD & DISPLAY DATA 

GET UPPER THRESHOLD FROM KEYBOARD & DISPLAY DATA 
COLLECT NEW DATA FROM CAMERA (CLEAR CORE MATRIX) 
COLLECT DATA FROM CAMERA 

CHANGE CAMERA 

STOP COLLECTION 

INITIALIZE EVERYTHING 

ZOOM - SET GAIN TO 2 

REGULAR = SET GAIN TO 1 

DISPLAY ISOTOPE A 

DISPLAY ISOTOPE B 

SELECT VSVO1 DISPLAY USING 1ST BIT MAP 

SELECT VSVO1 DISPLAY USING 2ND BIT MAP 

FREE RUN MODE - COLLECT & DISPLAY NEW DATA CONTINUALLY 
JOYSTICK CALIBRATION 

DISPLAY INTENSITY TEST IMAGE ON SELECTED DISPLAY 
OTHER TERMINAL TO CONTROL PROGRAM 


: CNTRL C ABORT WHATEVER - BACK TO KEYBOARD MONITOR 


;THIS CODE WILL DISPATCH PROGRAM TO THE PROPER 
: ROUT INE 1% THE DISPATCH TABLE ‘RTABLE‘ 


LISEN 


LISN: 


FREERN ;KNOCK DOWN mS RUN MODE IF SET 
oan SP :RESET STACK PTR 
KBUF F ; INSURE NO KEYBOARD GARBAGE 


- (SP) :PUSH LEVEL 0 ONTO STACK 

#LISN,~(SP) :TO BE LSI-11 COMPATABLE 
;FAKE RTI TO LOWER PRIORITY 

KBUF F ,RO ;LOOK FOR CHAR 

LISN ;WAIT FOR ONE 

KBUF F ; 

RO,4101 :WAS IT A CHAR? 

BOOBOO ;NOT A GOOD CHAR 

#177749,R0 sELIMINATE LOWER CASE 

RO, 433 ;IS IT AN ALPHA CHAR? 

BOOBO0O0 :BR IF NOT 

RO ;MAKE UP WORD OFFSET 

RTABLE=2(RO) :1S IT A LEGAL COMMAND? 

BOOBO00 ;BR IF NOT 

@RTABLE=2 (RO) :GO DC IT 


SEQ 0016 








E 
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CZ7NCDB.P11 31=AUG-79 11:27 INITIALIZE THE COMMON T SEQ 0017 
179 
Hs ’ ~-SBTTL KEYBOARD DISPATCH TABLE 
182 001750 002054 RTABLE: ROUTA :"A* DISPLAY ISOTOPE A 
183 001752 002066 ROUTB :'B* DISPLAY ISOTOPE B 
184 001754 002100 ROUTC :*C' COLLECT DATA 
185 001756 902110 ROUTD :"D" DISPLAY DATA 
186 001760 002114 ROUTE :"E" ERASE SCOPE 
187 001762 002124 ROUT >'F* FREE RUN MODE(COLLECT NEW DATA & DISPLAY CONT INOUSL 
188 001764 002220 ROUTG 3'G’ INITIALIZE EVERYTHING 
189 001766 002230 ROUTH :"H' HELP THE OPERATOR 
190 001770 000000 0 :*I* BOO800 
191 001772 002302 ROUT J :'J*' GO TO NCV11 JOYSTICK CALIBRATION 
192 001774 000000 0 ;"K* BOOB00 
193 001776 002320 ROUTL :'L"' GET LOWER THRESHOLD FROM KEYBOARD 
194 002000 002360 ROUTM :'"M' SELECT vSVO1 DISPLAY USING 2ND BIT MAP 
195 002002 002420 ROUTN >"N' GET NEW DATA FROM CAMERA 
196 002004 002434 ROUTO >'O* GET ADDRESS OF OTHER TERMINAL 
197 002 0090000 0 ;"P* BO0B800 
198 002010 000000 0 ;*Q* BOO800 
199 002012 002614 ROUTR ;"R" REGULAR GAIN =1 
200 002014 002632 ROUTS ;'S* STOP COLLECTION 
201 002016 002650 ROUTT :'T* DISPLAY INTENSITY TEST IMAGE ON SELECTED DISPLAY 
202 002020 002664 ROUTU :'U* GET UPPER THRESHOLD FROM KEYBOARD 
203 002022 000000 0 ;'v* BO0O800 
204 002024 002724 ROUTW :'W' SELECT VSVO1 DISPLAY USING 1ST BIT MAP 
205 002026 002762 ROUTX >" " CHANGE CAMERA CHANNEL 
206 002030 000000 0 -*Y¥" BOOBOO 


207 002032 003192 ROUTZ -*7" 700M = GAIN = 2 





F 
CZNCDB NCV11 EXERCISER MACY 11 30G6(1063) %31-AUG=79 13:08 PAGE 4 
CZ7NCDB.P11 31=AUG=79 11:21 COMMAND DECODER SEQ 0018 


209 -SBTTL COMMAND DECODER 

Sy ;REPORTS ILLEGAL KEYBOARD CHARACTERS 

212 002034 012737 000077 001270 BOOBOO: MOV #77 ,TTYOUT ¢ {8 et & 

215 002042 004737 005300 JSR PC, TYPO sive it 

214 002046 004737 005260 JSR PC,TYPCR :DO0 A ‘CR* 

$4 002052 000715 BR LISN ;GO LOOK FOR GOOD CHAR 

217 002054 012737 020000 001314 ROUTA: MOV AMATRIX,TABLEX ;WILL DISPLAY ISOTOPE A 

218 002062 000137 003122 JMP CHANGE ;GO DO IT 

219 002066 012737 040000 001314 ROUTB: MOV #MATRIX+20000, TABLEX sWILL DISPLAY ISOTOPE B 
220 002074 000137 003122 JMP CHANGE O DO IT 

221 002100 004737 004704 ROUTC: JSR PC,NCSTRT :G9 START NCV11 

222 002104 000137 001702 JMP LISN ;COLLECT DATA UNTIL KEYBRD COMMAND 
225 002110 000137 003122 ROUTD: JMP CHANGE :GO DISPLAY DATA 

224 002114 004737 005020 ROUTE: JSR PC ,ERASE ;GO ERASE SCOPE 

225 002120 000137 001702 JMP LISN ;GO WAIT ON NEXT COMMAND 

226 002124 012737 177777 001316 ROUTF: MOV #~-1,FREERN ;SELECT FREE RUN MODE 

227 002132 004737 004766 JSR PC.NCSTP1 ;GO STOP NCV11 & CLR CORE MATRIX AREA 
228 002136 004737 004704 JSR PC .NCSTRT :GO START NCV11 

229 002142 005000 CLR RO ;SET UP TIMER 

230 002144 013701 001172 MOV TIME ,R1 ;SET UP GROSS TIMER VALUE 

231 002150 005300 1$: DEC RO ; COUNT 

232 002152 001376 BNE 1$ :WAIT FOR ZERO 

233 002154 042737 000040 001266 BIC #B11T5 ,KBUFF ;LOOK FOR POSSIBLE STOP KEY - RID LOWER CASE 
234 002162 022737 000123 001266 CMP #123, KBUFF :STOP BEEN STRUCK? 

235 002170 001007 BNE 2$ ;BR IF NOT 

236 002172 052777 000400 177010 BIS #B1T8,@QNCSFR ;STOP NCV11 

237 002200 005077 176774 : CLR ANC CSR ;ZERO NCV CSR 

238 002204 000137 001656 JMP LISEN ;GO AWAIT NEXT COMMAND 

239 002210 005301 2$: DEC R1 ;DO0 LOOP AGAIN? 

240 002212 001356 BNE 1$ ;BR IF SO 

241 002214 000137 003122 JMP CHANGE sNOW GO DISPLAY DATA JUST scan 
242 002220 004737 005020 ROUTG: JSR PC ,ERASE ;GO ERASE SELECTED DISPLA 

243 002224 000137 001562 JMP START1 : INITIALIZE AND START FRESH 

244 002230 005737 001324 ROUTH: TST NOVSV + CHECK IF DISPLAY 

245 002234 001016 BNE 1$ IF NO VSVO1 

246 002236 004737 005020 JSR PC ERASE “CLEAR THE SCREEN 

247 002242 000240 NOP 

248 002244 000240 NOP 

249 002246 012777 002000 176750 MOV #2000,aVTVPOS ;POSITION THE READ-OUT 

250 002254 004537 005516 JSR R5,VTWRIT :TELL THE OPERATOR VIA VSVO1 
251 002260 010640 HELPO 

252 002262 004537 005516 JSR R5,VTWRIT 

253 002266 011336 HELP 1 

254 002270 02 BR 2$ 

255 002272 104401 011336 1$: TYPE, HELP ;NO VSVO1 = TELL OPERATOR SHORT LIST 
256 002276 000137 001702 2$: JMP LISN 

257 002302 005737 001324 ROUTJ: TST NOVSV ; CHECK ha yeve! PRESENT 

258 002306 001402 BEQ I$ :BR IF PRESENT 

259 002310 000137 001702 JMP LISN ;FORGET IF NO DISPLA 

260 002314 000137 004332 1$: JMP TJOY ;CALB. THE JOYSTICK 60 TO IT 
261 002320 012746 000340 ROUTL: MOV #340,-(SP) =PUSH HIGH PSW ON STACK 

262 002324 012746 002332 MOV #1$,-(SP) :PUSH RETURN ADDRESS 

263 002330 000002 RTI ;FAKE RTI TO RAISE PSw 

264 0023352 104401 010161 1$: TYPE »MSG2 ;ASK FOR OCTAL DATA 


Ge 
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CZNCDB.P11 31-AUG-79 11:21 COMMAND DECODER SEQ 0019 
265 002336 1046411 RDOCT ;GO GET IT 
266 002340 012637 001272 MOV (SP)+,THLO ;SAVE IT 
267 002344 005046 CLR =($P) :PUSH LOW PSW 
268 002346 012746 002554 MOV #2$,-(SP) 
269 002352 000002 RTI 
270 002354 000137 003122 c$: JMP CHANGE ;GOQ DISPLA 
271 002360 005737 001324 ROUTM: TST NOVSV ; TEST IF vSvO1 DETECTED ? 
272 002364 001013 BNE 1$ :BR IF NOT 
273 002366 012737 177777 001320 MOV #-1 ,MSELCT ;SELECT 2ND BIT MAP 
274 002374 004737 004546 JSR PC,SELCTA :RELOAD ADDRESSES 
275 002400 000240 NOP 
276 062402 013700 001226 MOV VTVCSR,RO ;GET 2ND BIT MAP ADRS 
277 002406 042760 000400 177760 BIC #B1T8,-20(RO)  ;TURN OFF 1ST BIT MAP 
278 002414 000137 001702 13: JMP LISN ;GO AWAIT NEXT COMMAND 
279 002420 004737 004766 ROUTN: JSR PC,NCSTP1 ;GO STOP NCV11 & CLR CORE MATRIX 
280 002424 004737 004704 JSR PC,NCSTRT ;START THE NCV11 
281 002430 000137 001702 JMP LISN ;COLLECT DATA & AWAIT NEXT KEYBRD COMMAND 
282 002434 012746 000340 ROUTO: MOV #340,-(SP) :RAISE PS 
283 00244C 012746 002446 MCV #1$,-(SP) 
284 002444 000002 RTI 
285 002446 104401 010324 1$: TYPE, MSG4 ;ASK OPR FOR ADDRESS 
2 002452 104411 RDOCT ;GET HIS oo 
287 002454 012600 MOV (SP)+,RO :GET ADDRESS 
288 002456 001002 BNE 2$ :BR IF NOT ‘'CR'' OR O 
289 002460 000137 002034 JMP BOOBOO ;FAT FINGER OPERATOR 
290 002464 0135746 000004 2$: MOV QAERRVEC,-(SP) ;SAVE LOC 4 
291 002470 012737 002576 000004 MOV #4$ ,AAERRVEC ;SAVE IF WRONG ADDRESS BY OPR. 
292 002476 005710 TST (RQ) ;REF. THE NEW CONSOLE ADDR. 
293 002500 012701 001144 MOV #$STKS ,R1 ;GET OLD ADDR. POINTER 
294 002504 010021 MOV RO, (R1)+ ;LOAD NEW ADDRESS 
298 002506 005720 TST (RO) + ;BUMP ADDRESS 
(1) 002510 010021 MOV RO, (R1)+ ;LOAD NEW ADDRESS 
(1) Q02512 005720 TST (RO) + :BUMP ADDRESS 
(1) 002514 010021 MOV RO, (R1)+ ;LOAD NEW ADDRESS 
(1) 002516 005720 TST (RO) + :BUMP ADDRESS 
(1) 002520 010021 MOV RO, (R1)+ ;LOAD NEW ADDRESS 
299 G02522 012637 000004 MOV (SP)+, oo, ;RESTORE LOC 4. 
300 002526 104401 010555 TYPE, MSG8 ;ASK OPR FOR ADDRESS 
301 002532 104411 RDOCT 
302 002534 012600 MOV (SP)+,RQ .GET VALUE 
002536 001002 BNE 3$ ;BR IF VALID 
304 002540 000137 002034 JMP BOOBO0 ;BR IF NOT GOOD NUMBER 
305 002544 042700 177003 3$: BIC #177003,R0 ;MASK OFF OTHER BITS 
306 002550 010037 001174 MOV RO, TKVECO ;SAVE THE VECTOR 
307 002554 010037 001176 MOV RO, TKVEC1 ;SAVE THE BR LEVEL 
308 002560 062737 000002 001176 ADD #2,TKVEC1 ; ADDRESS 
309 002566 005046 CLR - (SP) 
310 002570 012746 0013526 MOV ASTART,~(SP) ;LOWER PS AND START PROG AGAIN 
311 002574 000002 RTI 
312 002576 022626 4$: CMP (SP)+, (SP) + ; CLEAN STACK 
313 002600 012657 000004 | MOV (SP)+,@MERRVEC ;RESTORE LOC. 4 
314 002604 005046 CLR -(SP) ;LOWER PS 
315 002606 012746 (002034 MOV #BOOB00,-(SP)  ;RETURN 
316 002612 000002 * RT] 


ORISSA a enti! NR SNES 
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CZNCDB.P11 — 31=AUG=79 11:21 COMMAND DECODER SEQ 0020 
318 
319 002614 005037 001302 ROUTR: CLR GAIN WANT REGULAR GAIN 
320 002620 042777 002000 176352 BIC #BIT10,aNCCSR INSURE REGULAR GAIN 
321 002626 000137 001702 JMP LISN “LOOK FOR NEXT COMMAND 
322 002632 052777 000400 176350 ROUTS: BIS #BITB,AaNCSFR —-_: STOP -NCV11 
323 002640 005077 176334 CLR aNCCSR “ZERO NCV CSR 
324 002644 000137 00170 JMP LISN “LOOK FOR NEXT COMMAND 
325 002650 004737 004744 ROUTT: JSR PC,NCSTP “GO STOP THE NCV1i IF RUNNING 
326 002654 004737 005152 ISR PC’ LDIMGE =GO SET UP TEST CORE IMAGE 
327 002660 000137 003122 IMP CHANGE -GO DISPLAY IT 
328 002664 012746 000340 ROUTU: MOV #340,-(SP) 
329 002670 012746 002676 MOV = #1$,,-( SP) 
330 002674 RT] 
331 002676 104401 010161 1$: TYPE = ,MSG2 ASK FOR OCTAL DATA 
332 002702 104411 RDOCT :GO GET IT 
333 002704 012637 001274 MOV (SP) +, THHI SAVE IT 
334 002710 005046 CLR -(SP) 
335 002712 012746 002720 MOV _—s- #2$,,- (SP) 
336 002716 RTI 
337 002720 000137 003122 2$: JMP CHANGE :GO DISPLAY 
338 002724 005737 001324 ROUTW: TST NOVSV “TEST IF VSVO1 DETECTED 
339 002730 001012 BNE 1$ “BR IF NOT 
340 002732 005037 001320 CLR -MSELCT “SELECT 1ST BIT MAP 
341 002736 004737 004546 JSR PC, SELCTA “CHANGE ADDRESSES 
342 002742 000240 NOP 
343 002744 013700 001226 MOV VTVCSR,RO :GET 1ST BIT MAP ADRS 
344 002750 042760 000400 000020 BIC #81T8,20(RO) |: TURN OFF 2ND BIT MAP 
345 002756 137 001702 1$: JMP LISN ;GO AWAIT NEXT COMMAND > 
346 002762 012746 000340 ROUTX: MOV #340,-(SP) 
347 002766 012746 002774 MOV #1$,-(SP) 
348 002772 RTI 
349 002774 104401 010520 1$: TYPE, MSG7 ;TELL OPERATOR TO SELECT CAMERA 
350 003000 104411 RDOCT “WAIT FOR HIS INPUT 
351 003002 012637 003076 MOV (SP) +,10$ :GET CHAR. 
352 003006 000240 NOP : 
353 003010 000240 NOP 
354 003012 00024( NOP 
355 003014 042737 177774 003076 BIC #177774,10$ :MASK OFF BITS 
356 003022 005237 003076 INC 10$ , 
357 003026 005037 003100 CLR 11$ CLEAR ACTUAL VALUE 
358 003032 005337 003076 2$: DEC 10$ 
359 003036 001403 BEQ 3$ : 
360 003040 005237 003100 INC 11$ f UPDATE ACUTAL 
361 003044 000772 BR 2$ / 
362 003046 11.737 003100 001301 38: MOVB  11$,CAMERA+1 — ; UPDATE CAMERA SAVE LOC. 
363 003054 053777 .001300 176116 BIS CAMERA. @NCCSR :AND SELECT THAT CAMERA 
364 003062 00504 CLR -(SP) 
365 003064 012746 003072 MOV = #4$,- (SP) 
366 003070 RT] 
367 003072 000137 003122 4$: JMP CHANGE ; RETURN 
368 003076 10$: 0 
369 003100 11$: 0 
370 003102 012737 002000 001302 ROUTZ: MOV  #BIT10,GAIN ;ENABLE GAIN 
371 003110 053777 001302 176062 BIS GAIN, aNCCSR “SET IT AT NCV CSR 
372 003116 000137 001702 JMP LISN “GO AWAIT NEXT COMMAND 


CZNCDB 
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003122 


004737 


004737 


005737 
001402 
000137 


012700 
012701 
004737 


005020 


004744 
001324 
001702 
001750 
073567 
005060 
001770 
005072 


006019 
005060 


0060350 
005072 


001304 
175764 
001314 


001274 


001306 
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175730 
001260 
001262 


001306 


I 
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PROGRAM ROUTINES 


-SBTTL PROGRAM ROUTINES 
:GO CLEAR SCREEN OF SELECTED DISPLAY 


CHANGE: JSR PC,ERASE ;GO ERASE SCOPE 
;STOP NCV11 AND GET SET TO DISPLAY 
JSR PC,NCSTP :GO STOP NCV11 
ie — BR IF ™ wees DETECTED 


JMP LISN ;RETURN IF NOT 
;NOW DRAW A BOX AROUND POTENTIAL MATRIX DISPLAY 


“AREA ON THE SELECTED DISPLAY 
BOx: MOV #1750.R :SET UP BIT MAP ADRS - TOP LINE 
MOV #73567,R1 “SET UP PIXEL DATA IN R1 - INT 7 


JSR PC ,DISPY :GO LOAD BIT MAP 
1$: INC RQ ;ADVANCE ADRS 
CMP #1770,R0 ;TOP LINE DONE? 
BEQ 2$ :BR IF SO 
JSR PC ,DCONT ;LOAD NEXT PIXEL WD 
BR 1$ :NEXT MAP LOAD 
2$: MOV #6010,R0 :SET UP BIT MAP ADRS - BOT LINE 
JSR PC ,DISPY :GO LOAD BIT MAP 
3$: INC oa a ;ADVANCE ADRS 
CMP #6030,R0 ;BOT LINE DONE? 
BEQ 4$ ;BR IF SO 
JSR PC ,,DCONT ;LOAD NEXT PIXEL WD 
BR 3$ :NEXT MAP LOAD 
4$: MOV #1730,R0 ~  3SET UP BIT MAP ADRS SIDE LINES 
5$: ADD 7,RO :OFFSET NEXT ROW 


#17,R 
MOV #70000 ,R1 
CMP #6047 ,R0 


sth UP PIXEL 3 DATA | IN RI - INT 7 
T BOTTOM OF SCREEN? 


BEQ 6$ ‘60 START VSVO1 DISPLAY 
JSR PC ,DISPY :GO LOAD BIT MAP 
MOV -R1 ;SET UP PIXEL 0 DATA IN R1 — INT 7 


:OFFSET TO RIGHT LINE 
+ GO LOAD BIT MAP 

;DO NEXT ROW 

:START DISPLAY 


JSR PC ,DISPY 
5$ 


BR 

6$: MOV VIVSAV,@VTVCSR 
MOV #2010,MAPADR :OFFSET BIT MAP ADRS 
MOV #3,PIXCNT :SET UP PIXEL BYTE COUNT 
CLR PIXASM ;CLR PIXEL ASSEMBLY WORD 


; NOW ee THE LARGEST CELi 


LARGES: TOTSIZ,CHARCT  ;NUMBER OF ELEMENTS TO CONSIDER 


@TABLEX,RO ;THIS IS FIRST GUESS 

MOV TABLEX,R1 :R1 POINTS TO TABLE 
1$: CMP RO,(R1)+ ; COMPARE GUESS AGAINST NEW 

BHIS 3$ :GUESS STILL GOOD 

CMP ~(R1),THHI :GUESS SMALLER BUT CHECK NEW 

BH] 2$ sHI AGAINST UPPER THESHOLD 

MOV (R71) ,RO ;WITHIN BOUNDS. MAKE THIS NEW HI 
2$: TST (R1)+ ; INCREASE REGISTER BY 2 
3$: 43! pant? ;COUNT THIS LAST COMPARISON 


SEQ 0021 


CZNCDB NCV11 EXERCISER 
31-AUG-79 11 


CZNCDB.P11 


001272 


003720 
001310 


001314 
017600 
000100 
175632 
000002 
001312 
000100 
000400 
001274 


001272 


001310 
000005 


ee th ae 


001256 
001256 
001312 


001256 


001312 
001256 
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PROGRAM ROUTINE 
; THE LARGEST CELL WITHIN THE UPPER THRESHOLD IS NOW IN RO 


SEQ 0022 


;NOW ACCOUNT FOR LOWER THRESHOLD - BOW OUT IF TOO SMALL 
SUB THLO,RO ; SUBTRACT LOWER THRESHOLD 
BHI 4$ “BR IF CELL VALUE GREATER THAN LO THRESHOLD 
JMP PATWRT ;DON'T DISPLAY-ALL VALUES BELOW LO THRESHOLD 
4$: MOV RO, CPERL :SAVE LARGEST CELL OF MATRIX 


;NOW PICK OUT EACH VALUE IN CORE MATRIX AND SCALE TO THE 
;PROPER INTENSITY LEVEL. THEN DISPLAY IT ON THE SELECTED DISPLAY 


DMATRX: MOV TABLEX ,MRXADR ;BEGIN AT TOP LEFT ROW 

ADD #8064. ,MRXADR sOFFSET TO BOTTOM OF CORE MATRIX 

MOV #64. ,ROWCNT ; THERE ARE 64 CELLS PER ROW 
DISLOP: MOV @MRXADR ,R2 ;GET A CELL VALUE FROM MATRIX 

AD #2 ,MRXADR ;BUMP MATRIX ADRS 

DEC ROWCNT ;COUNT CELL THIS ROW 

BNE 1$ “BR IF ROW NOT FINISHED 

MOV #64. ,ROWCNT sRESET NEXT ROW COUNT 

SUB #256. ,MRXADR ;SET UP FOR NEXT ROW IN MATRIX 
1$: CMP R2,THH] sCELL WITHIN HI THRESHOLD? 

BHI 2$ “BR IF NOT 

SUB THLO,R2 ;SUB LOW THRESHOLD 

BH] SCLCEL “BR IF CELL ABOVE LOW THRESHOLD 
2$: a R4 r ;SET CELL TO LOWEST INTENSITY 
SCLCEL: MOV CPERL,R1 sNOW ESTABLISH THE INTENSITY LEVEL 

: MOV R3 sSCALE TO 16 LEVELS 

CLR 4 
2s: ASL R4 :MUL BY 2 

CMP R2,R1 ;COMPARE THIS CELL TO LARGEST 

BLO 4$ “BR IF SMALLER 

TST R1 sCHECK CASE WHERE 0 DEVISOR 

BEQ 3$ “BR IF SO 

INC R4 s;ACCOUNT FOR GOOD SUBTRACTION 
is: we R1,R2 NO DO THE SUBTRACTION 

: L 

ROR R1 ;MAKE DEVISOR SMALLER 

DEC R3 COUNT POSITION 

BNE 2$ “AGAIN IF NOT SCALLED TO 16 LEVELS YET 

SUB R1,R2 ;ACCOUNT FOR REMAINDER 

BLOS MAPLD :BR IF TOO SMALL 

INC RSG = ROUND UP 


CZNCDB 
CZNCDB. 


Pi) 


013700 
005704 


001260 


001264 


000020 
003420 


NCV11 EXERCISER MACY11 stata 
31-AUG-79 11:21 


001262 


007 260 


i pat 13: ae PAGE »* 
ROGRAM ROUTINES 
;THIS CODE DISPLAYS EACH SCALED 
MAPLD: MOV MAPADR ,RO 
TST R4 
BEQ 1$ 
DEC R4 
1$: SWAB R4 
ASL R4 
ASL R4 
ASL R4 
ASL R4 
CLC 


2$: DEC PIXCNT 
BPL DISLOP 
Ci PIXASM 
MOV #3 ,PIXCNT 


MAPADR 
MOV MAPADR ,RO 


CMP #5770,R0 
BNE 3$ 
JMP PATWRT 

3$: BIC #177740,R0 
CMP #30,R0 
BNE 


4$ 
ADD 420 ,MAPADR 
4$: JMP DISLOP 


CELL ON THE VSVO1 (ONE OF 16 LEVELS) 


7 SET UP BIT MAP ADRS 
OOK FOR NO INTENSITY 
“BR IF NO INTENSITY 
;OFFSET TO 0-17 
:PREPARE FOR PIXEL LOC 
:MOVE TO TOP 4 BITS 


NOW ASSEMBLE THIS PIXEL INTO PIXEL WORD 
:NOW MAKE ROOM IN PIXEL WORD 


:ADD THIS PIXEL TO OTHERS 

sALL 4 PIXELS DONE FOR THIS WORD? 
;BR IF NOT 

;LD PIXEL WORD INTO R1 

:LOAD BIT MAP 

; COUNT PIXEL 

;BR IF 4 PIXELS NOT ASSEMBLED YET 
;CLR PIXEL ASSEMBLY WORD 

sRESET PIXEL COUNT 

: ADVANCE MAP ADRS 

;LOAD INTO RO 

:HAVE ALL 64 ROWS BEEN DONE? 

:BR IF NOT 

;NOW GO DISPLAY PARAMETERS 

;SAVE ROW POSITION BITS 

:NOW LOOK FOR END OF ROW 

;BR IF NOT AT END 

;ADVANCE MAP ADRS TO NEXT ROW 

:GO GET NEXT MATRIX DATUM 


SEQ 0025 


CZNCDB NCV11 EXERCISER eg A nothin el 
31-AUG-79 11:21 


CZNCDB.P11 


VI 
—_ 
© 


MMAYVIWMAYVIVIUAVT U1 
cl ce cl cl ce ced coed 
WONOUSE WN 


004110 


RRRRERRRRERE 


POY CS se Se 
NVA LROANMOS AON 


012777 
37 


7 
113737 
032777 


001007 
112737 
112737 


000406 
112737 
112737 


arenas 


012000 
005316 


005342 
005316 
005342 
001301 
000060 
001246 
000040 
000125 
000120 
000104 
000116 
000100 


175276 


001246 
001246 
010022 
175202 


010036 
010037 


010036 
010037 


175140 


010053 
010054 


010053 
010054 


001246 
001250 


;TELL OPER. 


;TELL OPER. 
;DISPLAY CAMERA VALUE AND BUTTON STATUS 


;VSVO1 = SET CHAR POS,LINE 20, LEFT MARGIN 


:''CR,LOWER THRESHOLD’ 
:DISPAY OCTAL 


:''CR, UPPER THRESHOLD'’ 
:DISPAY OCTAL 

>GET CAMERA VALUE 
:MAKE ASCII 

; SAVE FOR READOUT 

; TEST FOR *PB'* FLAG 


:BR IF SET 
;NO- TELL OPER. IT WAS UP 
IT WAS DN 


:TEST FOR ‘‘JOY-BUTTON'’’ FLAG 
:BR IF SET 


;TELL OPER. IT WAS UP 


IT WAS DN 


3''Z COUNT = 


;DISPALY OCTAL - 
: INSERT foes 
:DISPLAY OCTAL 


Rim yay 13:08 PAGE 3 
ROGRAM ROUTINES 
:CODE TO WRITE PARAMETER DATA AT BOTTOM OF SCREEN 
PATWRT: MOV #12000, aVTVPOS 
JSR RS, VTWRIT 
WDOO01 
JSR R5,AWRIT 
THLO 
JSR RS,VTWRIT 
WD002 
JSR RS,AWRIT 
THH] 
MOVB CAMERA+1, _— 
ADD #60 ,DUMMY 1 
MOVB DUMMY T CAMOUT 
; TEST a? Ma itd 
BITS. @NCSFR 
BNE 1$ 
MOVB #°U,PBUP 
MOVB #'P,PBUP+1 
BR 2$ 
1$: MOVB #°D,PBUP 
MOVB #'°N,PBUP+1 
: TEST FOR JOY-STICK BUTTON FLAG 
es: BIT #BIT6,ANCSFR 
BNE 
MOVB #°U, JBUP 
— #'P, JBUP+1 
3$: MOVB #°D, JBUP 
MOVB #'N, JBUP+1 
4$: JSR R5, VTWRIT 
WD007 
JSR RS,VTWRIT 
WD003 
MOV @NCBAR , DUMMY 1 
MOV @NCWCR DUMMY 2 
JSR R5,AWRIT 
DUMMY 2 
JSR RS,VTWRIT 
DASH 
JSR R5,AWRIT 
DUMMY 1 
JSR RS, VIWRIT 
WD004 


>’ MATRIX COUNT="" 


SEQ 0024 | 


CZNCDB NCV11 EXERCISER MACY11 seairhiiiaeead™ 
31-AUG-79 11:21 


CZNCDB.P11 


013737 


001304 
001314 


001240 
001246 
001250 
005342 
005316 
005342 
005316 


001302 
005316 
001314 
005316 
001316 
002124 


001276 
001702 


M 
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Rt im my 
GRAM ROUTINES 
:DETERMINE THE #4 OF COUNTS IN THE MATRIX 
001240 MOV TOTSIZ, TEMPO 
CLR R2 
CLR R3 
MOV TABLEX,R1 
MXSML : aot ~Sess ;NOW ADD UP ALL VALUES IN MATRIX 
DEC TEMPO 
BNE SML 
MOV R3,DUMMY1 
MOV R2,DUMMY2 
JSR R5,AWRIT ;TELL OPER. OCTAL 
DUMMY 2 
JSR R5,VTWRIT : INSERT DASH 
DASH 
JSR R5,AWRIT 
DUMMY 1 
JSR R5,VTWRIT 
BCRLF 
; TEST FOR GAIN = 2 AND B GAMMA STATES 
TST GAIN 
BEQ 1$ 
JSR R5,VTWRIT 
WDO05 - F 
040000 _ 1$: CMP TABLEX ,AMATRIX+20000 ; ISOTOPE B? 
BNE ;NO 
JSR R5,VTWRIT sYES 
WDO006 :'B-GAMMA'' 
2s: TST FREERN :IN cone RUN MODE? 
BEQ 3$ : F NOT 
JMP ROUTF YES, GO GET NEW DATA 
174652 3$: MOV COMSAV,a@NCCSR “RESUME THE NCV11 
JMP LISN :DONE WITH MESSAGES 


SEQ 0025 


CZNCDB NCV11 EXERCISER MACY1?7 eepiteemed” Ram. ae ‘ai 08 PAGE 10. 


CZNCDB.P11  31=AUG=79 11:21 OGRAM ROUTIN SEQ 0026 
593 THIS CODE DRAWS CROSS HAIRS(VSVO1) WITH THE X & Y JOYSTICK DATA 
594 THE BUG WILL FOLLOW THE JOYSTICK WHEN THE INTERRUPT BAR IS NOT DEPRESSED - 
595 “ALL PARTS WITHIN THE DISPLAYED BOX ON THE SELECTED DISPLAY SHOULD 
596 :BE ACCESSIBLE IN A UNIFORM MANNER 
597 “A CNTRL 'C' WILL GET USER BACK TO KEYBOARD MONITOR 
598 004332 004737 005020 TJOY: JSR PC,ERASE ;START FRESH 
600 ;DRAW A BOX UP ON VSVO1 SCREEN FOR NCV11 JOYSTICK CALIBRATION 
601 004336 005000 CLR ~—s_ RO ;SET UP BIT MAP ADRS - TOP LINE 
602 004340 012701 073567 MOV —«-#73567.R1 SET UP PIXEL DATA IN R1 = INT 7 
603 004344 004737 005060 JSR —- PC, DISPY :GO LOAD BIT MAP 
604 004350 005200 18: INC —RO ADVANCE BIT MAP ADRS 
605 004352 022700 000040 CMP = #40,RO TOP LINE DONE? 

606 004356 001403 BEQ 4s $ :BR IF SO 

607 004360 004737 005072 JSR —- PC, DCONT LOAD NEXT PIXEL 

608 004364 000771 BR 1$ “NEXT MAP LOAD 

609 004366 012700 007740 2$: MOV _—«-#7740.RO SET UP BIT MAP ADRS - BOT LINE 
610 004372 004737 005060 JSR —- PC, DISPY :GO LOAD BIT MAP 

611 004376 005200 3$: INC —RO ADVANCE ADRS 

612 004400 022700 010000 CMP . _ #10000,RO0 “BOT LINE DONE? 

613 004404 001403 BEQ «4S [BR IF SO 

614 004406 004737 005072 JSR ——- PC, DCONT “LOAD NEXT PIXEL WORD 

615 004412 000771 BR 3$ “NEXT MAP LOAD 

616 004414 012700 000040 4$: MOV _— #40, RO SET UP BIT MAP ADRS SIDE LINES 
617 004420 012701 000007 S$: MOV #7.R1 SET UP PIXEL 0 DATA IN R1 - INT 7 
618 004424 004737 005060 JSR —- PC DISPY :GO LOAD BIT MAP 

619 004430 012701 070000 Mov -#70000,R1 :SET UP PIXEL 3 DATA IN R1 = INT 7 
620 004434 062700 000037 ADD —«-#37,RO OFFSET TO RIGHT SIDE LINE 

621 004440 004737 005060 JSR —- PC, DISPY :GO LOAD BIT MAP 

622 004444 005200 INC —RO G0 TO NEXT ROW ON LEFT 

623 004446 022700 007740 CMP  —s-#7740.,RO :T0 BOTTOM YET? 

624 004452 001362 BNE IF NOT 

at 004454 013777 001254 174544 MOV VTVSAV,aVTVCSR ” ENABLE BIT MAP 

627 | NOW COLLECT ANALOG DATA FROM NCV11 JOYSTICK 

629 004462 012777 004000 174520 DISBG: MOV § #BIT11,aNCSFR CLEAR THE DEVICE 

630 004470 052777 000001 174512 1$: | BIS  #BITO,@NCSFR — : CONVERT JOYSTICK 

631 004476 105777 174506 2$: TSTB — ANCSFR DONE ? 

632 004502 100375 : BPLtiéOS :BR IF NOT 

633 004504 017737 174504 001240 MOV @NCJOY, TEMPO =: STORE CONVERSION VALUES 

634 004512 000240 NOP 

635 004514 000240 NOP 

636 004516 000240 NOP 

637 004520 004737 005472 JSR ——~PC,,XYAVE ;GO AVG LAST 32. X-¥ JOYSTICK VALUES 
638 004524 032777 000040 174456 BIT | #BITS,aNCSFR — : LOOK FOR JOY BOTTON DOWN 

639 004532 001356 | BNE _—‘1$ DON'T MOVE THE BUG 

640 004534 000240 NOP 

641 004536 000240 NOP 

642 004540 004737 005122 JSR PC ,DISPY2 ;GO DISPLAY CROSS HAIRS = VSVO1 
643 004544 000751 BR 1$ “DO ANOTHER CONVERS]ON 
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001166 
001220 


000002 
001226 


001170 
001320 


00 
000001 


174230 
000400 
174214 


PIU IOGS) 


000004 


000004 


174266 


174236 


001276 
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OGRAM SUBROUTINES 


rs -ARRARASAAAAAAAAAALALARARAARARASLARAARAARARARRAARARARRASRASAS AAAS SSS SD | 


ee SELECTS VSVO1 DISPLAY = SETS UP BUS ADRS AND INTENSITY LEVEL 
AND INTENSITY LOOK-UP TABLE = THE CARRY BIT IS SET ON EXIT IF THE 
“VSVO1 IS NOT SEEN AT THE ASSIGNED BUS ADDRESS 


MPETIIIITITI TTI TTI TTT TTT ITT TIT it titi t iit titi et titi iii i iti i i 


SELCTA: MOV 
MOV 
1$: MOV 


2$: MOV 


3$: MOV 


4$: MOV 
5$: CMP 


VTVADR ,RO 
AVTVCRG,R1 
RO, (R1)+ 


#2 ,RO 
A#VTVCSR,R1 
1$ 


VTMADR ,RO 
- es 


2 
°20,R0 
KO, (R1)+ 


#2,RO0 
#VTVINT+2,R1 
2$ 


#5$ ,@MERRVEC 
aVTVCRG 
aVTVCSR 
INTLUT ,RO 
RO,aVTVINT 
#401,R 

#10060. -RO 


+ guages Nin , @AERRVE C 


C 
(SP) +, (SP)+ 
4S 


SEQ 0027 


;GET VSVO1 BASE ADRS 
;GET PTR ADRS 


;SET UP REG ADRS PTRS 
;BUMP REG ADRS 

; CHAR GEN REGS ALL SET UP? 
:BR IF NOT 

;GET BASE ADRS OF BIT MAP 
;USING SECOND MAP? 

:BR IF NOT 


;POINT TO 2ND BIT MAP ADRS'S 
; CONTINUE TO BIT MAP ADRS'S 


= BUMP REG ADRS 

;ALL SET UP? 

;BR IF NOT 

;SET UP BUS TIMEOUT RETURN ADRS IF NO VSVOQ1 


;I1S CHARACTER GENERATOR THERE? 
;I1S BIT MAP THERE? 
:SET UP ADRS & DATA OF INTENSITY LOOK-UP TABLE 


;SET UP TABLE 
: ADVANCE we a INTENSITY 
Slag E LOADED? 


;BR NOT 
; ZERO CARRY SAYS VSVO1 THERE 
sRESTORE ER TRAP LOC TO PT TO 6 


X 
FIX STACK SINCE NO RTi 
;CARRY ON EXIT SAYS NO VSVO1 
:GO EXIT 


STARA RARER EKER RERAEEAEERKEKAEAEAKKEAKKEAEEKEKRA EERE 


;ROUTINE STARTS NCV11 AT SELECTED GAIN AND CAMERA 


PTT TTT TT TOC TITTLE LITTLE LTTE LEE LLLLELL 


NCSTRI: MOV 


#4030,aNCCSR 
#MATRIX, ANCOF F 


GAIN, @NCCSR 


CAMERA, @NCCSR 
+ latte 


;SET UP ZB ENABLE AND 64*64 WORD MATRIX 
; ENSURE oe REG. IS SET 


‘SET GO BIT 


>RETURN 


SL AAR AAA KRAAKEAEEREAAAEAAERAREARAERKERKEREEKARKEAEAEEREAEKEARRAEA EERE RE 


;ROUTINE STOPS NCV11 AND SAVES NCV11 STATUS 


CL AAA AAR AAR RARER AAEREREAAEAEKAAREAEERERRER EERE 


NCSTP: MOV 
BIS 
CLR 


RTS 


@NCCSR, COMSAV 
#B1T8,aNCSFR 
@NCCSR 


PC 


sSAVE THE INTERFACE ACTION 
;DISABLE NPR'S 


;ZERO ALL STATUS 
;RE TURN 


CZNCDB NCV11 EXERCISER MACY11 ntmicknnnee™ ahinal oak 13: ee PAGE 12° 


CZNCDB.P11 = 31=AUG=79 11:21 GRAM SUBROUT IN SEQ 0028 
700 SERRE REE EERE ERE ERA ERE EERE EEE REE ee 
701 sROUTINE STOPS NCV11, SAVES STATUS AND CLEARS MATRIX CORE AREA 
702 ETI ITITIL LILLE ELE ELLE ETT EEL TTT TUTTE 
703 004766 004737 004744 NCSTP1: JSR PC,NCSTP ;GO STOP NCV11 AND SAVE STATUS 
704 004772 005077 174206 Ci.R aNncWCR ;CLEAR HIGH WORD 
705 004776 005077 174204 CLR @NCBAR ;CLEAR LOW WORD 
706 005002 012700 020000 — MOV AMATRIX,RO :GET SET TO ZERO CORE MATRIX AREA 
707 005006 005020 1$: CLR (RQ) + ZERO L 
708 005010 020027 060000 CMP -'f AMATRIX+40000 sALL DONE? 

709 005014 001374 BNE 1$ ;BR_IF MORE 

oy 005016 000207 RTS PC ; RETURN 

712 SL RRR REE ERE ERE RE KR E REE EEER ERE 
713 | ;ROUTINE WILL ERASE DISPLAY 

714 ss BOOS SIO IOI OSU IOIIIOIUISIOIIISOISIOIUIOISOOIUOISO IONE nr 
715 005020 005737 001324 ERASE: TST NOVSV TEST IF VSVO1 DETECTED 

716 005024 001014 BNE 2$ ;BR IF NOT 

717 ~=005026 052777 001000 174172 BIS #1000,aVTVCSR ;ERASE DISPLAY (CLR BIT MAP) 

718 005034 105777 174166 1$: TSTB aVTVCSR ;LOOK FOR READY 

719 005040 100375 BPL 1$ :WAIT FOR IT 

720 005042 042777 001000 174156 BIC #1000,aVTVCSR ;TURN OFF ERASE DISPLAY 

721 005050 012777 002035 174142 MOV #2035,aVTVCRG CLR CHAR SCREEN & DISABLE CURSOR 
ree 005056 000207 2$: RTS PC EXIT 

c 

724 SL II REE RE RE RE REREREEEEERE EERE E EEE 
725 sROUTINE WILL LOAD BIT MAP (VSV01) 

726 : :RO CONTAINS BIT MAP ADRS AND R1 THE BIT MAP DATA 

727 SURO IDISISIOIIIIIOISIDIOI IDIOT OSI SIOISIOI IDOI IOI II IOI OI ISI IDI OI I Roi 
728 005060 042777 000400 174140 DISPY: BIC #400, aVTVCSR :STOP DISPLAY 

729 005066 010077 174136 MOV RO, aVTVMAP ;LOAD BIT MAP ADRS 

730 005072 042777 000400 174126 DCONT: BIC #400, aVTVCSR ZAGAIN IF ENTERING HERE 

731 005100 105777 174122 1$: TSTB aVTVCSR READY? 

732 005104 100375 BPL 1$ ;WAIT THEN 

733 005106 010177 174120 MOV R1 ,aVTVPX sLOAD BIT MAP 

734 005112 052777 000400 174106 BIS #400,aVTVCSR ;RESUME DISPLAY 

oe: 005120 000207 RTS PC ; RETURN 

737 

738 DLE EE ERE EERE 
739 ;ROUTINE WILL DISPLAY X & Y CROSS HAIRS ON VSVO1 

740 : PUI SUISIUIS IOI IIISIIOIIOISIOIIOISISIOISISISOIIOIOIOIIOIOIDIOISIIDIISIOI SOOO IDOI IDOI NIE IR 
741 005122 005777 174072 DISPY2: TST AaVTVCRG ;READY? 

742 005126 100375 BPL DISPY2 :WAIT IF NOT 

743 005130 105137 001241 COMB TEMPO+7 :X NEEDS TO BE INVERTED 

744 005134 013777 001240 174060 MOV TEMPO ,@VTVCHP ;LOAD X & Y CROSS HAIRS 

745° 005142 052777 016000 174050 BIS #16000,@VTVCRG ;ENABLE THE CROSS HAIRS 


746 005150 000207 RTS PC RETURN 


CZNCDB 


NCV11 


CZNCDB.P11 
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000100 
001314 
00010 


0 
000100 


000001 
000100 


173722 


001270 


re th etahheaead™ 


001266 
173716 
001266 
001266 


001270 
001270 


173636 


BE ea 


GRAM SUBROUTINES 
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SEQ 0029 


SOSA IOISIUISISIIIOIDISISIIIOIUIOIOIOIUIOIUIOIOI IOUT IT THT ETE OTE ETT TE TTT TT 
sROUTINE WIIL FILL CORE WITH AN IMAGE THAT WHEN 
;DISPLAYED WILL CONTAIN ALL THE INTENSITY LEVELS - 

;ROWS AT THE BOTTOM OF THE SCREEN WILL APPEAR BRIGHTEST - 
sNOTE THAT THIS IS ONLY A DISPLAY TEST PATTERN FOR 
;POSSIBLE DISPLAY ADJUSTMENTS BY THE USER 


eee oane ete cna seeatany alee ener anes se ene 


{ BIMGE : ae 


1$: MOV 


2$: RTS 


#100,R0 =COUNT 64 ROW 
TABLEX,R1 GET SELECTED ISOTOPE 
#100,R2 “COUNT 64 DATA POINTS PER ROW 
#100.R3 =100 WILL REPRESENT HIGHEST INTENSITY LEVEL (100-0) 
RS. (R1)+ “LOAD CORE IMAGE 
“DONE ROW? 
"§ :BR IF NOT 
RO sD ROWS? 
2$ “BR IF SO 
1,R3 “LOWER NEXT CELL VALUE 
#100,R2 “RESET ROW LENGTH COUNTER 
“LOAD THIS ROW IMAGE 
PC “RETURN FOR DISPLAY 


RARER AAAAAEAAR AERA RAERARARAEKERRAEKERARAERAERAERERRA ERE 


“KEYBOARD INTERRUPT SERVICE ROUTINE 


J TRAE ARAREKKEKAAEEERAEERRRER REED 


KBINT: MOV 
MO 


1%: RT] 


@a$TKB ,KBUF F ;READ KEY BOARD 

KBUFF ,a$TPB sECHO CHAR. 

#177600, KBUFF sRID PARITY 

#3, KBUF F sCNTRL ‘C‘? 

1$ :BR IF NOT 

LISEN ;ABORT WHATEVER & LOOK FOR NEXT COMMAND 


+8 We ee RRR REE EERE KEKE EKER KKK 


; ROUT INE TYPES *CR' AND ‘LF* OR CHAR IN TTYOUT 


'—Ase SAAR RASRRALASSAAAALSAR RR ARRSASRAR SARA RR RRR SRR RRRRRRAR RRR RSS SD SS: 


TYPCR: 


TYPO: 


#15, TTYOUT ;SET UP FOR A ‘CR’ 

PC,TYPO 

#12,TTYOUT ;SET UP FOR LF 

em ;WAIT FOR LAST CHARACTER 
y ‘ 

TTYOUT ,a$TPB ;SEND IT OUT 


PC 


s 2 | 


CZNCDB NCV17 EXERCISER MACY11 cuttohleenad aienel aa tae » PAGE 14 
CZ7NCDB.P11 31-AUG-79 11:21 GRAM SUBROUTINE SEQ 0030 
792 TORII II IO IOI IOI IIOIOIIIIOIIIIOIIIOIOIUIOIUINIOIUIUIUIIUIDIOIUIOIIUIUIO TR itt ht tt 
793 : THIS SUBROUTINE IS CALLED WITH THE ADDRESS OF A MESSAGE TERM WITH A O BYTE 
794 Sr Se i i Be i RRR SR RRO TR TR RT RE RR ht 
795 
796 005316 012504 VTWRIT: MOV (R5)+,R4 ;GET ADDRESS OF MESSAGE IN R4 
797 005320 005777 173674 13 TST @aVTVCRG ;WAIT FOR READY 
798 005324 100375 BPL 1$ 
799 005326 105714 TSTB (RG) ; TERM ? 
800 0053 001403 BEQ 2$ ;BR IF YES 
801 005332 112477 173662 MOVB (R4)+,aVTVCRG ;LOAD THE CHARACTER 
802 005336 000770 BR 1$ 
it 005340 000205 2$: RTS R5 sEXIT 
805 OUI ISIGIIIOIDIUIUICIIIOIUICIIOIUIDIOIOIOIIOIIOIUIOIDIOIIIOIOIUIOIOIIIIOIOIOIOIOIOIOIOIOIIOIOIOIOIIOIOIOI OI 
806 :;THIS ROUTINE CONVERTS OCTAL INTO ASCII FOR DISPLAY 
807 © Be Re RII I ie REE KEKE 
808 005342 012537 005454 AWRIT: MOV (R5)+,10$ ;GET VALUE'S ADDRESS 
B09 005346 017737 000102 005454 MOV a10$,10$ “GET ACTUAL VALUE 
810 005354 010046 MOV RO,-(SP) ; SAVE RO 
811 005356 012700 005470 MOV #NUMEND , RO ;LOAD LAST ADDRESS OF OCTAL TYPEOUT 
812 5362 012737 000006 005460 MOV #6,12% ;LOAD LOOP COUNTER 
813 005370 0004 BR c$ 
814 005372 006237 005454 1$: ASR 10$ : SHIFT DATA 
815 005376 006237 005454 ASR 10$ 
816 005402 006237 005454 ASR 10$ 
817 005406 013737 005454 005456 2$: MOV 10$,11$ ;COPY THE VALUE 
818 005414 042737 177770 005456 BIC #177770,11$ “MASK OFF UNWANTED BITS 
819 005422 062737 005456 ADD #60,11$ :MAKE ASCII OCTAL 
820 005430 113740 005456 MOVB 11$,-(RO) ;SAVE THE CHAR. 
821 005434 005337 005460 DEC 12$ sFINISHED ? 
822 005440 001354 BNE 1$ 
823 005442 012600 MOV (SP)+,RO 
824 005444 0045357 005316 JSR R5,VTWRIT ;DISPAY THE OCTAL 4 
825 005450 005462 NUMBE G 
826 005452 000205 RTS R5 sEXIT 
827 005454 000000 10$: 0 
828 005456 000000 11$: 0 
829 54 000005 12$: 5 
830 005462 060 060 060 NUMBEG: .BYTE 60,60,60,60,60.60 
005465 060 060 060 
831 005470 000 NUMEND: BYTE 0 
832 005472 EVEN 
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005720 


010046 


000040 
005720 
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001240 
005720 


005562 


005621 
005562 


001240 


005720 


177400 
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ROGRAM SUBROUTINES 


5 RRAARAARAKRAAKAARAAAARARAAAAAKRARAAAEKARAAAAAAAAAAAARAARAAARRAAAER 


; THIS ROUTINE AVERAGES THE LAST 32. X=Y JOYSTICK VALUES 


5 RRA RAEEARAAAARAARARAAERARAEAARAATKKAARERARAARAARAARAAAEARARARARERARAA RAD 


KYAVE: MOV 


XYBUF : 
XYBUFE=. 
KXYBUFP: XYRUF 


RO,-(SP) 
TEMPO ,RO 
XYBUFP,R2 
RO, (R2)+ 
os 


AXYBUF ,.R2 
R2,XYBUFP 
#XYBUF ,R2 
Pc,10$ 
RO,-(SP) 
#XYBUF +17 ,R2 
PC,10$ 

RO 


(SP)+,RO 
RO, TEMPO 
(SP)+,RO 
PC 
RO 
RS 
(R2)+,R5 


& 


R 
oe 


R 
#177400,RC 
PC 


; SAVE RO 
:GET K & 
:;GET CURRENT BUFFER POINTER 


;SAVE NEW X-Y VALUE 


;END OF BUFFER? 
;NO 


“YES, GO BACK TO BEGINING OF BUFFER 


;SAVE NEW BUFFER POINTER 
;CALC AVE X 


;SAVE IT 
;CALC AVE Y 
:G0 


“EXIT WITH AVE X-Y IN TEMPO 


;ZERO SUM 
:;DG A MOVB TO A REG (UNSIGNED) 


;ADD IT IN 
>SKIP OTHER VALUE 
sEND OF BUFFER? 


:NO 
;DIVIDE BY 32. 


;CLR HI BYTE 


SEQ 0031 


G 
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CZ7NCDB NCV11 EXERCISER MACY11 nee wlieakt’ eas 
CZ7NCDB.P11 31=-AUG-79 11:27 AM SUBROUTINES SEQ 0032 
878 DORROIIIIUIOIIIOIIIOIOIUIUIOIIIOIIIIIIIUIOIUIUIOIUIDIOIUIOIOIOIUIOIOIIOIOIOIOIOIUIUIDIOIOIOIOIOIUIOIUIOIIOS ttt 
mY .SBTTL TTY INPUT ROUTINE 
(1) 
(2) fF EAAARAAAARAAAARAAAAAAAAAAAARAARKAKARAARAAHRARAAAARARAREKAAAAER ES 
a -ENABL LSB 
(4 
(2) 5 RARER ARAAAAAAAAREKRAREKRARARAKAARAERRARAKAAERAARARAAAKRER AER 
(1) >*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) = «ROUT INE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
(1) = *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
(1) > *WHEN OPERATING IN TTY FLAG MODE. 
(1) 005722 022737 000176 001140 $CKSWR: CMP A#SWREG, SWR :21S THE SOF T=-SWR SELECTEC? 
(1) 005730 001074 BNE 15$ CH IF NO 
(1) 005732 105777 173206 TSTB a$TKS :3 CHAR THERE ? 
(1) 57 00071 BPL 15$ : IF NO, DON'T WAIT AROUND 
(1) 005740 117746 173202 MOVB a$TkKB,-.SP) + > SAVE THE CHAR 
(1) 005744 042716 177600 BIC #*C177, (SP) -:STRIP=OFF THE ASCII 
(1) 005750 022726 000007 CMP 47, (SP) + :;1S IT A CONTROL G? 
(1) 005754 001062 BNE 15$ :;NO, RETURN TO USER 
(1) 005756 123727 0C1134 000001 CMPB $AUTOB,A1 > ARE WE RUNNING IN AUTO-MODE? 
St 005764 091456 BEQ 15$ ; ;BRANCH IF YES 
(1) 005766 104401 006574 TYPE »SCNTILG ;ZECHO THE CONTROL-G (“*G) 
(1) Q05772 104401 006601 $GTSWR: TYPE , SMSWR >; TYPE CURRENT CONTENTS 
(2) 005776 013746 000176 MOV SWREG,-(SP) SAVE SWREG FOR TYPEOUT 
(2) 006002 104402 TYPOC 3;GO TYPE=--OCTAL ASCII(ALL DIGITS) 
(1) 006004 104401 006612 TYPE , SMNEW ; PROMPT FOR NEW SWR 
(1) 006010 005046 19$: CLR -(SP) ;:; CLEAR COUNTER 
(1) 006012 005046 CLR -(SP) :; THE NEW SWR 
(1) 006014 105777 173124 7$: TSTB a$sTKS >; CHAR THERE? 
Sf 006020 100375 BPL 7$ >; IF NOT TRY AGAIN 
(1) 006022 117746 173120 MOVB a$1K8,-( SP) ;z;PICK UP CHAR 
1) 006026 042716 177600 BIC #*C177, (SP) -*MAKE IT 7-BIT ASCII 
if 
(1) 006032 021627 000025 9$: CMP (SP) 425 :1S IT A CONTROL-U? 
(1) 0060 001005 BNE 10$ . BRANCH IF NOT 
(1) 104401 006567 TYPE »SCNTLU :YES, ECHO CONTROL-U (“U) 
(1) 062706 000006 20$: ADD #6,SP “IGNORE PREVIOUS INPUT 
ay 000757 BR 19$ >:LET'S TRY IT AGAIN 
(1) 
(1) 021627 000015 10$: CMP (SP) 415 ::I1S IT A <CR>? 
(1) 001022 BNE 16$ ;;BRANCH IF NO 
(1) 005766 000004 TST 4 (SP) YES, IS IT THE FIRST CHAR? 
(1) 001403 BEQ 11$ ss CH IF YES 
(1) 016677 Q00002 173044 MOV 2(SP) ,aSWR ;: SAVE NEW SWR 
(1) 062706 000006 11$: ADD #6,SP 7 CLEAR UP STACK 
(1) 104401 001161 14$: TYPE , SCRLF sECHO <CR> AND <LF> 
(1) 123727 001735 000001 CMPB SINTAG,41 ; :RE-ENABLE TTY KBD INTERRUPTS? 
(1) 1003 BNE 15$ :BRANCH IF NOT 
(1) 012777 000100 173022 MOV £100,a$TKS : ;RETENABLE TTY KBD INTERRUPTS 
(1) S$: RT] fy h py: 
(1) 004737 006774 16$: JSR PC $TYPEC sECHO CHAR 


CZNCDB 


CZNCDB. 


Nee eee eee ee a ae ee ee a ee ee ee ee ee ee ee ee ee ee ee te ee ae es 


LO ON ON FR NR RF FR FR FR FR FR FF RR FR RR RO RR RR RODS SN RFR FR FR FR FR FR FR FR EFS OOO PS 


NCV11 EXERCISER 


P11 


0061 30 
34 


006324 
006326 


021627 


011646 


010346 
005046 


MACY11 39G(1063) 
31-AUG=79 11:21 


000060 
000067 


000060 
000002 


000002 
177776 


001160 


000004 
*72724 


172720 
177600 
000004 
172672 
172666 
177600 
000021 
000004 
000004 
000040 


000002 


000004 
000004 
000023 


000140 
000175 
000004 


31=-AUG= 79 
TTY INPUT ROUTINE 


17$: 


18$: 
.DSABL 


B 
LSB 


13:08 PAGE 16-1 


(SP) ,460 
18$ 

(SP) ,467 
18$ 

#60, (SP) + 
2 (SP) 

17$ 

(SP) 

(SP) 

(SP) 

2 (SP) 
-2(SP),(SP) 
7$ 

, $QUES 
20$ 





SEQ 0035 


sCHAR < 9? 
* BRANCH IF YES 
i HAR > 7? 
: BRANCH IF YES 
; s STRIP~OF F ASCII 
31S THIS THE FIRST CHAR 
: : BRANCH IF YES 
:;NO, SHIFT PRESENT 


. Q 2 
“KEEP COUNT OF CHAR 

SET IN NEW CHAR 

;;GET THE NEXT ONE 

;; TYPE ?<CR><LF> 

3; SIMULATE CONTROL-U 


WRAPPER RRRRAASRASASASRARARA SAR ASASASAARAARASASAR ARRAS ARR RA AS AS ASSESS | 


= *THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


>*CALL: 


* 
** 
. 

~ 


SRDCHR: 


1$: 


es: 


3$: 


4$: 


RDCHR 
RETURN HERE 


RTI 


(SP) ,-(SP) 
4(SP),2(SP) 
asTkKS 

1$ 

a$TKB,4 (SP) 
#°C<177>.4(SP) 
4(SP) 423 

3$ 

a$TKS 

2$ 
a$TKB,-(SP) 
#°C177, (SP) 
(SP)+,421 

$ 

1$ 

4(SP),4140 

4 (SP) .#175 


#40,4(SP) 


3; INPUT A SINGLE CHARACTER FROM THE TTY 
;; CHARACTER IS ON THE STACK 
;zWIT’ PARITY BIT STRIPPED OFF 


:;PUSH DOWN THE PC 
>; SAVE THE PS 
soy FOR 

A CHARACTER 
+ :READ THE TTY 
::GET RID OF JUNK IF ANY 
3318S IT A CONTROL-S? 
; ;BRANCH IF NO 
>;;WAIT FOR A CHARACTER 
;;LOOP UNTIL ITS THERE 
::GET CHARACTER 
MAKE IT 7-BIT ASCI! 
3:18 IT A CONTROL-Q? 
:: IF NOT DISCARD IT 
37 YES, RESUME 
e215 iT “ea 


; BRANCH S 
gs18 IT A 2k CHAR? 


CH IF YE 
: MAKE IT UPPER CASE 
;:G0 BACK TO USER 


SS RRR AAEAAAAAKEARAAAAAEAKRAEARAAEAAAAAAAEAAAEAAAAAAAEEAAAAEKRARE RAE EEE 


>*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


>*CALL: 


SRDLIN: 


RDLIN 
RETURN HERE 


MOV 
CLR 


R3,-(SP) 
- (SP) 


>; INPUT A STRING FROM THE TTY 
;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 


2: SAVE R3 


;;CLEAR THE RUBOUT KEY 


| 
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CZNCDB.P11 31-AUG-79 11:21 TY INPUT ROUTINE SEQ 0034 
(1) 006330 012703 006560 1$: MOV ASTTYIN,RS ;;GET ADDRESS 
(1) 006334 022705 006567 2$: CMP ASTTYIN+7,R3 ; ;BUFFER FULL? 
(1) 006340 101456 BLOS 4$ ;7BR IF YES 
(1) 006342 104407 RDCHR ;GO READ ONE CHARACTER FROM THE TTY 
(1) 006344 112613 MOVE (SP) +, (R3) ::GET CHARACTER 
(1) 006346 122713 000177 10$: CMPB #177, (R3) :31S IT A RUBOUT 
(1) 006352 001022 BNE 5$ ;BR IF NO 
(1) 006354 005776 TST (SP) a2] THIS THE FIRST RUBOUT? 
(1) 006356 001007 BNE 6$ ;BR IF NO 
(1) 006360 112737 000134 006556 MOVB A'\ 9 >; TYPE A BACK SLASH 
(1) 006366 104401 006556 TYPE , A$ 
(1) 006372 012716 177777 MOV #-1, (SP) +e SET THE RUBOUT KEY 
(1) 006376 005303 6$: DEC R3 ;BACKUP BY ONE 
(1) 006400 020327 006560 CMP R3,ASTTYIN ; s STACK EMPTY? 
(1) 006404 103434 BLO 4$ se IF YES 
(1) 006406 111337 006556 MOVB (R3) ,9$ ;SETUP TO TYPEOUT THE DELETED CHAR. 
(1) 006412 104401 006556 TYPE I$ ::GO TYPE 
(1) 006416 000746 BR 2$ >:GO READ ANOTHER CHAR. 
(1) 006420 005716 5$: TST (SP) fin es id KEY SET? 
(1) 006422 001406 BEQ 7$ ;BR IF NO 
(1) 006424 112737 000134 006556 MOVB A'\ 9S :;TYPE A BACK SLASH 
(1) 006432 104401 006556 TYPE I$ 
(1) 006436 005016 CLR (SP) ;;CLEAR THE RUBOUT KEY 
(1) 006440 122713 000025 7$: CMPB #25 ,(R3) 331S CHARACTER A CTRL U? 
(1) 006444 001003 BNE 8$ ;;BR_ IF NO 
(1) 006446 104401 006567 TYPE eSCNTLU ;;TYPE A CONTROL ‘VV’ 
(1) 006452 000726 BR 1$ ;;GO START OVER 
(1) 006454 122713 000022 8$: CMPB #22, (R3) :31S CHARACTER A °"*R'’? 
(1) 006460 001011 BNE 3$ SEAR. IF NO 
(1) 006462 105013 CLRB (R3) >CLEAR THE CHARACTER 
(1) 006464 104401 001161 TYPE - SCRLF ;TYPE A ‘'CR'’ & ‘LF’ 
(1) 006470 104401 006560 TYPE ,STTYIN i TYPE THE INPUT STRING 
(1) 006474 000717 BR 2$ + se ANOTHER CHACTER 
(1) 006476 104401 001160 4$: TYPE , SQUES TYPE A 
(1) 006502 000712 BR 1$ > CLEAR THE BUFFER AND LOOP 
(1) 006504 111357 006556 3$: MOVB (R3) ,9$ >;ECHO THE CHARACTER 
(1) 006510 104401 006556 TYPE ,9$ 
(1) 006514 122723 000015 CMPB #15, (R3)+ +s CHECK FOR RETURN 
(1) 006520 001305 BNE , 2$ ;LOOP IF NOT RETURN 
(1). 006522 105063 177777 CLRB -1(R3) ::CLEAR RETURN (THE 15) 
(1) 006526 104401 001162 TYPE . SLF as; A LINE FEED 
(1) 006532 005726 TST (SP) + ; CLEAN “ws ad KEY FROM THE STACK 
(1) 006534 012603 MOV (SP)+,R3 : ;RESTORE R 
(1) 006536 011646 MOV (SP) ,-(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 006540 016666 000004 000002 MOV 4(SP) ,2(SP) ta FIRST ASCII CHARACTER ON IT 
(1) 006546 012766 006560 000004 MOV #STTYIN, 4 (SP) 
(1) 006554 000002 RTI RETURN 
(1) 006556 000 9$: '.BYTE 0 : STORAGE FOR ASCII CHAR. TO TYPE 
(1) 006557 000 -BYTE 0 ;: TERMINA TOR 
(1) 006560 000007 STTYIN: .BLKB 7 sRESERVE 7 BYTES FOR TTY INPUT 
(1) 006567 136 006525 000012 $CNTLU: .ASCIZ /*U/<15><12> ;CONTROL ° 
(1) 006574 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> ;CONTROL *'G’’ 
(1) 006601 015 051412 051127 $MSWR: .ASCIZ <15><12>/SWR = /- 
(1) 006606 036440 000040 
(1) 006612 0200460 042516 020127 S$MNEW: .ASCIZ / NEW = 
(1) 006620 020075 000 


CZNCDB NCV11 EXERCISER ed Oh sini inne” 
31-AUG=-79 11:21 


CZNCDB.P11 


(1) 
880 


ee ee ee ee ee ae a an ee ca a ee, ce ee ce, ei ee, ce, a ce, tn ee, ee, ce, a, ee te ee en ee, a a eo, a, tt ee, a a a 
ee ee ek en ee ee ee se a a. hea A a a a ee a a A 2 ee 2 4 A eee, 


006624 


105737 
100002 


001157 


000002 


000002 
000011 
000200 


007040 


006774 
001156 


001154 
000001 


006774 
007040 


000040 


006774 
000007 007040 


Bape ny 
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INPUT ROUT ANE 


.EVEN 


'WeheAPOASRRARASRAALAAALAASLASRAASAASRARARAR RASA RARARARARASRARRAR RRR RRR ARS SS SS 


"SBTTL TYPE ROUTINE 


+t 


:*1) USING A TRAP INSTRUCTION 


60$: MOV 
3$: 


;HORIZONTAL TAB 
8$: 


MeARAAARAAAALAAAAAAAASAASRASAAAAAAAAASAASRASASRASRARARSARARAASRR SAREE A DS | 


® ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

i sTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
** , 
> *NOTE2: 
—— 


«CA LL: 
TYPE 


TYPE 
ME SADR 


MOVB 
JSR 
BITB 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESADR 


$TPFLG 
1$ 


3$ 
ROQ,-(SP) 
a2(SP),RO 
(RQ) +,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
HHT, (SP) 
8$ 
ACRLF , (SP) 
5$ 


(SP) + 


$SCHARCNT 
2$ 


PC,$TYPEC 
SFILLC,(SP)+ 
2$ 


$NULL ,~ (SP) 
1 (SP) 

6$ 
PC,STYPEC 
$SCHARCNT 
7$ 
PROCESSOR 
#’ (SP) 


PC,$TYPEC 
#7, SCHARCNT 


;3MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


e315 7 as TERMINAL ? 
:;HALT HERE IF NO TERMINAL 
7; LEAVE 
7: SAVE RO 
ato ADDRESS OF ASCIZ STRING 
;PUSH CHARACTER TO BE TYPED ONTO STACK 
: :BR IF IT ISN'T THE TERMINATOR 
IF TERMINATOR POP IT OFF THE STACK 
> RESTORE RO 
+ ¢ADJUST RETURN PC 
TURN 


: ;BRANCH IF <HT> 
; ;BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
7; TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 


; CTER 
::I1S IT TIME FOR 4 oe CHARS. ? 
;;1F NO GO GET NEXT CHAR. 
¢GET # OF FILLER CHARS. NEEDED 
sAND THE NULL CHAR, 
i :DOES A NULL NEED TO BE TYPED? 
BR IF NO--GO POP THE NULL OFF OF STACK 
: 260 TYPE A NULL 
ig Ag COUNT AS A COUNT 


REPLACE TAB WITH SPACE 
>: TYPE 4A SPACE 
;;BRANCH IF NOT AT 


SEQ 0035 


K 
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CZNCDB.P11 31-AUG-79 11:21 ROUT INE SEQ 0036 
(1) 006766 001372 BNE 9$ >; TAB STOP 
(1) 006770 005726 TST (SP) + :sPOP SPACE OFF STACK 
(1) 006772 000724 BR 2$ ;;GET NEXT CHARACTER 
(1) 006774 105777 172150 $TYPEC: TSTB a$TPS ;;WAIT UNTIL PRINTER IS READY 
(1) 007000 100375 BPL STYPEC 
(1) 007002 116677 000002 172142 MOVB 2(SP) ,a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 007010 122766 000015 000002 CMPB A#CR,2(SP) ;;1S CHARACTER A CARRIAGE RETURN? 
(1) 007016 001003 BNE 1$ ;;BRANCH IF NO 
(1) 007020 105037 007040 CLRB SCHARCNT +7 YES~=CLEAR CHARACTER COUNT 
(1) 007024 0004 BR STYPEX sEXIT 
(1) 007026 122766 000012 000002 1$: CMPB ALF ,2(SP) ::1S CHARACTER A LINE FEED? 
(1) 007034 001402 BEQ $STYPEX ; BRANCH IF YES 
(1) 007036 105227 INCB (PC)+ ;; COUNT THE CHARACTER 
(1) 007040 000000 S$CHARCNT:.WORD OQ ;; CHARACTER COUNT STORAGE 
7 007042 000207 _ $STYPEX: RTS PC 


5 TRAE RARARARKEARARAEKAERERKRERKERAKEKEAKREKEARRKEAEREKEKEEARARA RRA KEE © 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


SOR IIICICR ROIOIOIIICIOIOIOIOIOICIOIOIOIOI OIRO IASAASASASIISIISSSIIAISISSSSISAIAAS SAA. 

:*THIS ROUTINE IS USED TO os A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT. 

: *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


8 So 


ee Ne ee ee a ee ee ee eee lee ee eee ele ee ele ae le ae a OS ee ee wee ee ae wor le 


:*CALL: 

:* MOV NUM , = (SP) ; ;NUMBER TO BE TYPED 
;* TYPOS 3;;CALL FOR TYPEOUT 

;* -BYTE WN :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* BYTE MM ::M=1 OR O 

;* 73 1=TYPE LEADING ZEROS 

;* 3; 0=SUPPRESS LEADING ZEROS 

** 


;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; s$TYPOS OR $TYPOC 


:* MOV NUM, - (SP) ; ;sNUMBER TO BE TYPED 

:* TYPON 3;CALL FOR TYPEOUT 

jw$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

** 

zs MOV NUM ,- (SP) ; ;NUMBER [0 BE TYPED 

;* TYPOC ;;CALL FOR TYPEOUT 
007044 017646 000000 $TYPOS: MOV a(SP) ,-(SP) :z;PICKUP THE MODE 
007050 116637 000001 007267 MOVB 1(SP) ,SOF ILL 3;;LOAD ZERO FILL SWITCH 
007056 112637 007271 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
007062 062716 000002 ADD #2, (SP) : ;ADJUST RETURN ADDRESS 
007066 000406 BR $TYPON 
007070 112737 000001 007267 S$TYPOC: MOVB #1 ,SOF ILL ::SET THE ZERO FILL SWITCH 
007076 112737 000006 007271 MOVB #6, SOMODE +1 SET FOR SIX(6) DIGITS 
007104 112737 000005 007266 $TYPON: MOVB #5, SOCNT 7; SET THE ITERATION COUNT 
007112 010346 MOV R3,-(SP) : SAVE R3 
007114 010446 MOV R4,-(SP) : SAVE R4 
007116 010546 MOV R5,-(SP) >: SAVE RS 
007120 113704 007271 MOVB SOMODE +1 ,R4 :;GET THE NUMBER OF DIGITS TO TYPE 
007124 005404 NEG 4 


LP LE EF FF FR FR FR FR FR RN FR FR FR FR FR FR RFR FR FR FR FR FR FRR RR RRO 


R 
007126 062704 000006 ADD #6,R4 ;; SUBTRACT IT FOR MAX. ALLOWED 





2 
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CZNCDB.P11 _31-AUG-79 11:21 Y TO OCTAL <ASCII) AND TYPE SEQ 0037 
(1) 007132 110437 007270 MOVB R4 , SOMODE :i SAVE IT FOR USE 
(1) 067136 113704 007267 MOVB SOFILL, RG 3;;GET THE ZERO FILL SWITCH 
(1) 007142 016605 000012 MOV 12(SP),R5 ;;PICKUP THE INPUT NUMBER 
(1) 007146 005003 CLR R3 ;;CLEAR THE OUTPUT WORD 
(1) 007150 006105 1$: ROL R5 ; ;ROTATE MSB INTO ‘'C'’ 
(1) 007152 000404 BR 33 ;:GO DO MSB 
(1) 007154 006105 2$: ROL R5 3 ;FORM THIS DIGIT 
(1) 007156 006105 ROL R5 
(1) 007160 006105 ROL 
(1) 007162 010503 MOV R5,R3 
(1) 164 103 3$: ROL R3 :;GET LSB OF THIS DIGIT 
(1) 166 105337 007270 DECB SOMODE +3 TYPE THIS DIGIT? 
(1) 007172 100016 BPL 7$ ;BR IF NO 
(1) 007174 042703 177770 BIC #177770,R3 >: GET ae OF JUNK 
(1) 007200 001002 BNE 4$ ;: TEST FOR O 
(1) 007202 005704 TST R4 3; SUPPRESS THIS 0? 
(1) 007204 001403 BEQ 5$ 3 7BR IF YES 
(1) 007206 005204 4$: INC R4 3;DON'T SUPPRESS ANYMORE 0'S 
(1) 007210 052703 000060 BIS #'O,R3 3zMAKE THIS DIGIT ASCII 
(1) 007214 052703 000040 5$: BIS #* ,R3 7Z7MAKE ASCII IF NOT ALREADY 
(1) 007220 110337 007264 MOVB R3,8$ 32SAVE FOR TYPING 
(1) 007224 104401 007264 TYPE , oS 3:G0O TYPE THIS DIGIT 
(1) 007230 105337 007266 7$: DECB SOCNT >; COUNT BY 1 
(1) 007234 003347 BGT 2$ ;3BR IF MORE TO DO 
(1) 007236 002402 BLT 6$ ;BR IF DONE 
(1) 007240 005204 INC R4 : + INSURE LAST DIGIT ISN'T A BLANK: 
(1) 007242 000744 BR 2$ 3;GO DO THE LAST DIGIT 
(1) 007244 012605 6$: MOV (SP)+,R5 7 RESTORE R5 
(1) 007246 012604 MOV (SP)+,R4 RESTORE R4 
(1) 007250 012603 MOV (SP)+,R3 ; RESTORE R3 
(1) 007252 016666 000002 000004 MOV 2 (SP) ,4(SP) 3;SET THE STACK FOR RETURNING 
(1) GO7260 012616 MOV (SP)+, (SP) 
(1) 007262 000002 RTI ¢2RE TURN 
(1) 007264 000 8$: -BYTE 0 3;STORAGE FOR ASCII DIGIT 
(1) 007265 C00 -BYTE 0 7; TERMINATOR FOR TYPE ROUTINE 
(1) 007266 000 SOCNT: .BYTE 0 ;;O0CTAL DIGIT COUNTER 
(1) 007267 000 SOFILL: .BYTE 0 : ZERO FILL SWITCH 
(1) 007270 000000 SOMODE : -WORD 0 ; NUMBER OF DIGITS TO TYPE 
884 TTT TIT TTT TITITITTIIT LILLIE TLE LLL LLL LE LLL LLL 
aH . SBITL REAS AN OCTAL NUMBER FROM THE TTY 
(2) SRR RRR ERE EERE EEE EERE ERE EERE EERE EERE EE EK 
(1) «THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) ;*CHANGE IT TO BINARY. 
(1) > * THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
(1) :*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?'’ WILL BE TYPED 
(1) > *F OLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
a3 ar BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
* . 
(1) ;* RDOCT ;ZREAD AN OCTAL NUMBER 
(1) ;* RETURN HERE 3;;LOW ORDER BITS ARE ON TOP OF THE STACK 
Sy ;* ;;HIGH ORDER BITS ARE IN $HIOCT 
(1) 007272 011646 SRDOCT: MOV (SP) ,-(SP) gta be ose FOR THE 
(1) 007274 016666 000004 000002 MOV 4(SP) ,2(SP) 
(3) 007302 010046 MOV RO,-(SP) : :PUSH "20 ON STACK 


M 
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CZNCDB.P11 31-AUG-79 11:21 READ AN OCTAL NUMBER FROM THE TTY SEQ 0038 
(3) 007304 010146 MOV R1,-(SP) >;PUSH R1 ON STACK 
(3) 007306 010246 MOV R2,-(SP) ;;PUSH R2 ON STACK 
(1) 007310 104410 1$: RDLIN ;;READ AN ASCIZ LINE 
(1) 007312 012600 MOV (SP)+,RO :;GET ADDRESS OF 1ST CHARACTER 
(1) 007314 010037 007420 MOV RO,5$ :;AND SAVE IT 
(1) 007320 005001 CLR R1 3;CLEAR DATA WORD 
(1) 007322 005002 CLR R2 
(1) 007324 112046 2$: MOVB (RO) +,-(SP) > PICKUP THIS CHARACTER 
(1) 007326 001420 BEQ 3$ ::1F ZERO GET OUT 
(1) 007330 122716 000060 CMPB #°0O, (SP) > MAKE SURE THIS CHARACTER 
(1) 007334 003026 BGT 4$ ::1S AN OCTAL DIGIT 
(1) 007336 122716 000067 CMPB #'7, (SP) 
(1) 007342 002423 BLT 4$ 
(1) 007344 006301 ASL R1 seag 
(1) 007346 006102 . ROL R2 : 
(1) 007350 006301 ASL R1 sid 
(1) 007352 006102 ROL R2 
(1) 007354 006301 ASL R1 37*8 
(1) 007356 00610 . ROL R2 
(1) 7360 042716 177770 BIC #*C7, (SP) STRIP THE ASCII JUNK 
(1) 007364 062601 ADD * (SP)+,R1 :;ADD IN THIS DIGIT 
(1) 007366 000756 BR 2$ 3;LOOP 
(1) 007370 005726 3$: TST (SP) + >; CLEAN TERMINATOR FROM STACK 
(1) 007372 010166 000012 MOV R1,12(SP) ;; SAVE THE RESULT 
(1) 007376 010237 007430 MOV R2,$HIOCT 
(3) 007402 012602 MOV (SP)+,R2 ;z;POP STACK INTO R2 
(3) 007404 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 
(3) 007406 012600 MOV (SP)+,RO :z;POP STACK INTO RO 
(1) 007410 000002 RTI > ;RETURN 
(1) 007412 005726 , 4$: TST (SP) + ;:; CLEAN PARTIAL FROM STACK 
(1) 007414 105010 CLRB (RO) ::SET A TERMINATOR 
(1) 007416 104401 TYPE >; TYPE UP THRU THE BAD CHAR. 
(1) 007420 000000 5$: . WORD 0 
(1) 007422 104401 001160 TYPE , SQUES ar a ae 
(1) 007426 000730 BR 1$ >: TRY AGAIN 
(1) 007430 000000 $HIOCT: .WORD 0 ::HIGH ORDER BITS GO HERE 


feb NCV11 EXERCISER MACY11 etetintnad 
P11 31=AUG=79 11:21 


CZNCDB .P 


a 


PPR PR LOL PRP PR LO POOR LPL LP LK LPL LL LP OO Ph 


en ea a ae ee ee. ee ee ee he ee te eh a ee 


Megs 
i's 


007454 
006624 


005722 
006204 


000002 


007466 


000004 000002 


sie on ort 


N 
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D AN OCTAL NUMBER FROM THE TTY 


SS RERAAARAAAAAAKEAAEAAARAAAAEAAKARARAAERARARAEAAAAARAARAKERRRARA RARE 


TRAP DECODER 


" SBITL 


SEQ 0039 


WeeASARARALALARAAAAAAAASLASASALARAASARAASRARARSRERSRA SARA AR ARRAS ASSAD SSS | 


= *THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’' INSTRUCTION 


“*AND USE IT TO INDEX THROUGH THE TRAP TABLE 
:*OF THE DESIRED ROUTINE. 


:*GO TO THAT ROUTINE. 


$TRAP: 


RO,-(SP) 


R 
$TRPAD (RO) ,RO 
RO 


:iSA 


FOR THE STARTING ADDRESS 
THEN USING THE ADDRESS OBTAINED IT WILL 


VE RO 
GET TRAP ADDRESS 
KUP BY 2 


7 3GET RIGHT BYTE OF TRAP 
sPOSITION FOR INDEXING 


>: INDEX TO TABLE 
;;GO TO ROUTINE 


3;THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 


:sMOVE THE PC DOWN 
:sMOVE THE PSW DOWN 
:sRESTORE THE PSW 


$TRAP2: 


. SBTTL 


MOV (SP) ,-(SP) 
MOV 4(SP) ,2(SP) 
RTI 

TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


$TRPAD: 


ROUT INE 


. WORD 
$TYPE 

$TYPOC 
$TYPOS 
$TYPON 


$GTSWR 


$SCKSWR 
$SRDCHR 
SRDLIN 
$RDOCT 


$TRAP2 


3; CALL=TYPE 

3; CALL=TYPOC 
3; CALL=TYPOS 
3; CALL=TYPON 


; - CALL=GTSWR 


3; CALL=CKSWR 
3; CALL=RDCHR 
3; CALL=RDLIN 
3; CALL=RDOCT 


TRAP+1 (104401) 
TRAP+2(104402) 
TRAP+3( 104403) 
TRAP +4 (104404) 


TRAP +5 (104405) 


TRAP+6 (104406) 
TRAP+7(104407) 
TRAP+10(104410) 
TRAP+11(104411) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 


GET SOF T-SWR SETTING 


TEST FOR CHANGE IN SOF T~SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 


B 
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; TRAP TABLE 


CZNCDB.P11 31-AUG-79 11:21 SEQ 0040 


890 LR RRR RRR ERR ERR RRR Ee 
if .SBTTL POWER DOWN AND UP ROUTINES 

(2) SRI III III III IIIS IOI IOIUIOIIOIOIIOIUIIIUIOIIIOOI IR RR Ant tt tt 
(1) ;POWER DOWN ROUTINE 

(1) Q07512 012737 007656 000024 $PWRDN: MOV ASILLUP,@MPWRVEC ;;SET FOR FAST UP 

(1) 007520 012737 000340 000026 MOV #340 ,@4PWRVEC+2 ;;PRIO:7 

(3) 007526 010046 MOV RO,-(SP) ; PUSH RO ON STACK 

(3) 007530 01014 | MOV R1,-(SP) : PUSH R1 ON STACK 

(3) 007532 010246 MOV R2,-(SP) 3 PUSH R2 ON STACK 

(3) 007534 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 

(3) 007536 010446 MOV R4,-(SP) ;7PUSH R4 ON STACK 

(3) 007540 010546 MOV R5,-(SP) 7zPUSH RS ON STACK 

(3) 007542 017746 171372 MOV @SWR ,- (SP) ;;PUSH @SWR ON STACK 

(1) 007546 010637 007662 MOV SP ,$SAVR6 ;zSAVE SP 

(1) 007552 012737 007564 000024 MOV #SPWRUP ,@APWRVEC ;;SET UP VECTOR 

(1) 007560 000000 HAL T 

(1) 007562 000776 HM .-2 ; HANG UP 

\ 

(2) SDI IIIS IOI IIIUIDIOIOIIOIOIOIOIIUIOIDIOIOIOIOIDIDIUIOIOIOIOIUIOIOIOIDIOIOIOIOIOIOIOIOIOIOIOIOIOIO TE 
(1) ;POWER UP ROUTINE 

(1) 007564 012737 007656 000024 $PWRUP: MOV MSILLUP,@AMPWRVEC ;;SET FOR FAST DOWN 

(1) 007572 013706 007662 MOV $SAVR6, SP sal. 

(1) 007576 005037 007662 CLR SSAVR6 ;z;WAIT LOOP FOR THE TTY 

(1) 007602 005237 007662 1$: INC SSAVR6 ;z;WAIT FOR THE INC 

(1) 007606 001375 BNE 1$ ae WORD 

(3) 007610 012677 171324 MOV (SP)+,aSWR ;:;POP STACK INTO aSwR 

(3) 007614 012605 MOV (SP)+,R5 ;zPOP STACK INTO R5 

(3) 007616 012604 MOV (SP)+,R4 ;zPOP STACK INTO R4& 

(3) 007620 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 

(3) 007622 012602 MOV (SP)+,R2 3zPOP STACK INTO R2 

(3) 007624 012601 MOV (SP)+,R1 ;zPOP STACK INTO R1 

(3) 007626 012600 MOV (SP)+,RO :zPOP STACK INTO RO 

(1) 007630 012737 007512 000024 MOV #SPWRDN,@APWRVEC ;;SET UP THE POWER DOWN VECTOR 
(1) 007636 012737 000340 000026 MOV #340, @4PWRVEC+2 ;;PRIO:7 

(1) 007644 104401 TYPE ;;REPORT THE POWER FAILURE 

(1) 007646 010056 SPWRMG: .WORD PWRMSG ;;POWER FAIL MESSAGE POINTER 

(1) 007650 012716 MOV (PC)+, (SP) ; ;RESTART AT START1 

(1) 007652 001562 $PWRAD: .WORD START ; ;RESTART ADDRESS 

(1) 007654 000002 RT] 

(1) 007656 000000 S$ILLUP: HALT 37; THE POWER UP SEQUENCE WAS STARTED 
(1) 007660 000776 BR 7c :; BEFORE THE POWER DOWN WAS COMPLETE 
(1) 007662 000000 $SAVRE: 0 7;PUT THE SP HERE 


C 4 
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893 ~SBTTL DISPLAY MESSAGES 


894 ;THIS IS THE MESSAGE FOR THE BOTTOM OF THE SCOPE 
895 007664 005015 047514 042527 wWDOO1: .ASCIZ <15><12>/LOWER THRESHOLD / 


007706 
896 007707 040 020040 020040 wD002: .ASCIZ / UPPER THRESHOLD / 


007730 0201 000 
897 007735 015 055012 edhe WD003: .ASCIZ <15><12>/Z2 COUNT=/ 
898 007750 046440 052101 044522 wD004: .ASCIZ / MATRIX COUNT=/ 


036524 000 
899 007767 040 055040 047517 wDO00S: .ASCIZ / ZO00M/ 
007774 000115 
900 007776 041040 043455 046501 wWD006: .ASCIZ / 8=-GAMMA/ 
010004 040515 000 


901 010007 015 041412 046501 wWDOO7: .ASCII <15><12>/CAMERA # / 
010014 051105 020101 020043 

902 010022 060 CAMOUT: .BYTE 60 

903 010023 040 020040 020040 ASCII / PB IS / 


904 010036 050125 020040 020040 PBUP: .ASCII /UP JB iS / 
010044 045040 020102 051511 


aha 010053 125 000120 JBUP : ~ASCIZ /UP/ 
907 ~SBTTL ASCII MESSAGES 
909 010056 005015 951012 051505 PWRMSG: .ASCIZ <15><12><12>/RESTARTED AFTER POWER FAILURE / 


000040 
910 010120 005015 041412 Ronnzh MSGI: .ASCIZ <15><12><12>/CZNCDB NCV-11 EXERCISER / 
000 
911 010161 015 042412 
010166 


MSG2: eASCIZ <15><12>/ENTER THRESHOLD VALUE IN OCTAL = THEN RETURN =/ 


05 
010232 052105 051125 
000075 


912 010242 005015 RaSare 020 MSG3$:  .ASCIZ <15><12>/BUS TIMEOUT ERROR - NO VSVO1 DISPLAY DETECTED / 


010264 020122 020055 047516 


CZNCDB 


NCV11 EX 
p 


CZNCDB.P11 


913 


914 


915 


916 


917 


920 


921 


922 


010272 


ERCISER 
31-AUG-79 


053049 
04 


MACY11 30G6(1063) 
11:21 


051125 


052502 
042515 


030460 


020116 
020123 


046120 
052101 
020040 
051501 
050117 
020040 


31-AUG=-79 


ASCII MESSAGES 


MSG4: 


MSGS: 


MSG6: 


MSG?7: 


MSGB: 


DASH: 
HELPO: 


ASCI2 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


-ASCIZ 
ASCII 


ASCII 


ASCII 


ASCII 


D 4 
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SEQ 0042 


<15><12>/ENTER CONSOLE BUS ADDRESS = THEN RETURN =/ 


<15><12>/BUS TIMEOUT ERROR = NCV11/ 


<15><12>/TYPE 'H'' FOR HELP INFO ENTER KEYBOARD COMMAND(S)/ 


<15><12>/ENTER CAMERA NUMBER 0-3 ? / 


<15><12>/ENTER CONSOLE VECTOR ADDRESS - THEN RETURN =/ 


fawf/ 
<15><12>/MD-11-CZNCD=-B NCV11 EXERCISER/<15><12><12> 


/D DISPLAY DATA/<15><12> 
/E FRASE SCOPE/<15><12> 
/\ GET LOWER THRESHOLD/<15><12> 


CZNCDB 


CZNCDB. 


923 


925 


926 


927 


928 


929 


930 


931 


932 


933 


NCV11 
P11 


010760 
010766 
010774 
011002 
011007 
011014 
011022 
011030 


SISRS 


OnNN 
NEAOMYVIN EOOW 


NIN) -- -— 


elelelelelel oe) el elele) elelelelel el elelela)l eile) 
RSNRSSEK 


1 
1 
, 
: 
1 
1 
, 
, 
, 
1 
1 
1 
1 
: 
: 
1 
} 
} 
; 
; 
1 
: 
1 


NMONININOIN a es Ss St SS SHS = OO 


Wwr— 
ons 


lel eo) Oe) e) @) ele) eo) eo) oe) ele) eo) el ele) 
RSNSUR 


’ 2 ae ye De et et eh”, he | 


* 
* 
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31-AUG-79 
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041440 
020101 


920124 


051511 
020105 


020040 


020105 
020040 


044103 


31-AUG-79 
ASCII MESSAGES 


HELP1: 


ASCII 


ASCII! 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCIZ 


ASCII 


ASCII 


ASCII 


13 
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/U GET UPPER THRESHOLD/<15><12> 
/A DISPLAY ISOTOPE A/<15><12> 

/B DISPLAY ISOTOPE B/<15><12> 

/W SELECT FIRST BIT MAP/<15><12> 
/M SELECT SECOND BIT MAP/<15><12> 
/F FREE RUN MODE/<15><12> 

/J JOYSTICK CALIB./<15><12> 

/T DISPLAY INTENSITY TEST/ 
<15><12>/N COLLECT NEW DATA/<15><12> 
/C COLLECT MORE DATA/<15><i2> 

/x CHANGE CAMERA CHANNEL /<15><12> 


SEQ 0043 


CZNCDB 


CZNCDB.P 


934 


935 


936 


937 


938 


939 


NCV11 EXERCISER ‘opt th 306 (1063) 
Pl} 31-AUG-79 11:21 


011452 


WO VIE EWG 


PUP SVP SSVI SISA SITS 
ON FRAOMAONYVE GOWN EO 


~S 


RALISS 


042516 


020040 
952125 
046117 
047511 


020040 
047111 
055117 


006514 
020040 


020040 
052111 
006505 


020040 
046517 
006516 
020040 


052507 
040507 


020125 
000 


31-AUG=79 
ASCI! MESSAGES 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


BCRLF: .BYTE 


13:08 PAGE 


/S 


/G 


/1 


7R 


/0 


15.12.,0 


F 
18-4 
STOP COLLECTION/<15><12> 


INITILIZE/<15><12> 
ZOOM GAIN/<15><12> 
REGULAR GAIN/<15><12> 


OTHER CONSOLE TERMINAL /<15><12> 


HELP THE OPERATOR AND REPEAT THIS LIST/ 


;LOC. 20000 THRU 57776 ARE BUFFER AREA 


. END 


SEQ 0044 





CZNCDB NCV11 EXERCISER re Oh 306(1063) 


CZNCDB.P11 
ABASE = 172760 
AWRIT 005342 
BCRLF Q11716 
BELLEN 001322 
BITO = Q00001 
BITOO = 900001 
BITO1 = 000002 
BITO2 = 000004 
BITO3 = 000010 
BIT04 = 000020 
BITOS = 000040 
BITO6é = 000100 
BITO7? = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 0004 
BIT9 = 001 
002034 
X 003144 
BPTVEC= 000014 
CAMERA 001300 
CAMOUT 010022 
CHANGE 003122 
CHARCT 1 
CKSWR = 104406 
COMSAV 001276 
CPERL 001510 
CR = 000015 
CRLF = 000200 
DASH 010634 
DCONT 00507 
DDISP = 177570 
DISBG 004462 
DISLOP 003420 
DISPLA 001142 
DISPRE 000174 
DISPY 005 
DiSPY2 005122 
DMATRX 3376 
DSWR = 177570 
DUMMY1 001246 
DUMMY2 001250 


10# 
515 
575 

054 

114 

114 

114 

114 

i114 


cee ee ee ee eed oe oS 3 4.) 3 oJ oJ 
sm ce me a ae 3 I od oo.) «3 «3 5 35 
RBRARRRRBRRRHRHBRBRRRRRARARNA 


114 


32 
519 
9404 
630 


320 
629 


31-AUG-79 


50 
546 


689 


370 


525 


51 
550 


638 


322 
212A 


521 
241 


614 


52 
568 


7304 


494 


544% 
569 


G 
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53 54 55 
572 8084 
696 

304 315 


327 33? 367 


603 610 618 


551 566* 573 


56 


3778 


621 


57 


728A 


SEG 0045 


H 4 
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CZNCDB.P11 31=-AUG-79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0046 
ERASE 005020 224 242 246 377 598 7154 
ERRVEC= 000004 114 102* 114* 121* 290 291% 299* 313 667* 676* 
FREERN 001316 934 160* 226* 587 
GAIN 001302 874 125* 319 370* 37) 579 687 
GNS = keeeee | & 888 
GTSWR = 104405 8884 
HELPO 010640 251 9194 
HELP 1 011336 253 255 9314 

T = 11 114 881 

INTLUT 001252 754 670 

IOTVEC= 000020 114 
JBUP 010053 535* 536* 538* 539* 9054 
KBINT 005220 129 7738 
KBUF F 001266 814 162* 166 168* 233* 234 773* 774 775* 776 
LARGES 003316 4194 
LDIMGE 005152 326 7554 
LF = 000012 114 881 
LISEN 001656 1604 238 778 
LISN 001702 +35 ead 14 215 222 225 256 259 <fe--——SS 321 324 345 
MAPADR 001260 784 414* 476 499* 500 507* 
MAPLD 003542 455 471 476A 
MATRIX= 020000 164 92 124 126 217 219 583 686 706 708 
MRXADR 001256 77# 441* 442* 444 445* 449* 
MSELCT 001320 944 273* 340* 660 
MSG1 010120 103 9104 
MSG2 010161 264 331 9114 
MSG3 010242 107 9124 
MSG4 010324 285 9134 
MSG5 010400 118 9144 
MSG6 10434 132 9154 
MSG7 010520 349 9164 
MSG8 010555 30 9174 
MXSML 004202 5624 565 
NCADM 001212 554 
NCADR 001164 32a 108 
NCBAR 001206 S34 544 705* 
NCBAR1 001216 57# 
NCCSR 001200 a i? 115 2357* 320* 323 363% 371* 590* 685* 687* 688* 689* 
NCJOY 001214 564 633 
NCOFF 001202 514 124* 686* 
NCSET 001516 1104 113 
NCSFR 001210 544 236* 322% 525 $33 629* 630* 631 638 696* 
NCSTP 004744 325 381 6954 703 
NCSTP1 004766 1235 227 279 7034 
NCSTRT 004704 221 228 80 6854 
NCWCR 001204 52a 545 704* 
NOVSV 001324 964 106* 244 257 271 338 383 715 

NUMBEG 005462 825 8304 : 

005470 811 8314 
PATWRT 003720 435 503 512A 
10036 527* 528« 530* 531s 9044 
PIRQ = 177772 114 
PIRQVE= 000240 114 


PIXASM 001264 B0# 4 16* = 4B86* = 4B7* — 488* —489* = 4908 493 4978 


CZNCDB NCV11 EXERCISER rpg A 306 (1063) 


CZNCDB.P11. 
PIXCNT 001262 
PRO = 000000 
PRI = 
PR2 = 000100 
PRS = 000140 
PRG = 000200 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
PWRMSG 010056 
PWRVE C= 24 
RDCHR = 104407 
RDLIN = 104410 
T = 104411 
RESVEC= 000010 
ROUTA 002054 
ROUTB 2 
ROUTC 002100 
ROUTD 002110 
ROUTE 002114 
ROUTF 002124 
ROUTG 002220 
ROUTH 002230 
ROUTJ 002302 
ROUTL 002320 
ROUTM 002 
ROUTN 002420 
ROUTO 3 002434 
ROUTR 002614 
ROUTS 002632 
ROUTT 002650 
ROUTU 002 
ROUTW 002724 
ROUTX 002762 
ROUTZ 003102 
ROWCNT 001312 
RTABLE 001750 
SCLCEL 003474 
SELCTA 004546 
STACK = 001100 
START 001326 
START1 001562 
STKLMT= 177774 
SWR 001140 
SWREG 000176 
SWO = 000001 
SWOO = 000001 
SWO1 = 000002 
SWO2 = 000004 
SWOS = 000010 
SWO4 = 000020 
SWOS = 000040 
SWO6 = 000100 
SWO7 = 000200 


14 


— st HS HH HH I OO oO 


2 ~4 2 —4 2 + 4 — -— ——2 Cr OO 
RRRRRRRERERR 


415* 


31-AUG-79 
491 495* 
895 * 

301 332 
589 

446* 448* 
1824 

341 6534 
161 

120 310 
243 891 
879* 891* 
879 


498* 


350 


a 
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8884 
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CZNCDB.P11 31=-AUG-79 11:27 CROSS REFERENCE TABLE == USER SYMBOLS | SEQ 0048 

Swos = 00 114 ms 

SWO9 = 001000 114 

Sw = 2 114 

SwW10 = 002000 114 

Sw1i = 000 114 

Swi2 = 010000 114 

SwW135 = 020000 114 

SW14 = 040000 114 

SW15 = 100000 114 

SWw2 = 114 

Sw5 = 000010 114 

SW4 = =_:~4000020 114 

SWS = =:~- 000040 114 

SwW6 = 000100 114 

SW7 = =: 000200 114 

SW8 = 0004 114 

Sw9 = 1 14 

TABLEX 001314 924 126* 217% 219* 420 421 441 561 583 756 

TBITVE= 000014 114 

TEMPO 001240 704 558* 564* 633* 743* 744 838 852* 

TEMP1 001242 714 

TEMP2 001244 724 : 

THH] 001274 844 128* 3335* 424 450 520 

THLO 001272 834 127* 266* 433 452 516 

TIME 001172 44a 230 

TJOY 004332 260 5984 

TKVEC = 0 114 46 47 

TKVECO 001175 464 129* 306* 

TKVEC1 001176 474 130* Z07* 308* 

TOTSIZ 001304 8 419 558 

TPVEC = 114 

TRAPVE= 000034 114 102* i 
TTRTVEC= 000014 114 

TTYOUT 001270 824 212* 784* 786* 789 

TYPCR 005260 214 7844 

TYPE = 104401 103 107 118 132 255 264 285 300 331 349 879 881 883 

885 8884 891 

TYPO 005 300 213 785 7874 788 

TYPOC = 104402 879 8884 

TYPON = 104404 8884 

TYPOS = 104403 8884 

VTMADR 001170 404 659 

VTVADR 001166 364 653 

VTVCHP 001222 604 744% : | , 

VTVCRG 001220 SoM 1i2 654 668 721* 741 745% 797 801* 

VTVCSR 001226 An 276 343 413* 625* 657 669 717* 718 720* 728% 730* 731 

* 

VTVINT 001236 674 665 671* 

VTVMAP 1230 644 729% 

VTVPOS 001224 614 249 S12* 

VTVPKX 001232 654 733* 

VTVPX1 1234 664 

VTVSAV 001254 764 3 625 

VTWRIT 005316 250 252 513 517 540 542 548 552 570 574 581 585 7964 
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WwD002 007707 518 8964 
wD00S 007735 543 897# 
WD004 007750 553 8984 
WDO0OS 007767 582 8994 
007776 586 9004 
WDO007 010007 541 9014 
XYAVE 005472 637 837# 
XYBUF 005620 843 845 848 8704 876 
XYBUFE= 005720 841 861 8754 
X YBUF P 5720 839 44* 8764 a ees me 
SAUTOB 134 2ln 879 
ADR 001122 21n 
$BDDAT 001126 14 
SCHARC 007040 8814* 
SCKSWR 005722 8794 888 
SCMTAG 1100 214 102 
CMS = elf 
SCNTLG 006574 8794 
SCNTLU 006567 8794 
SCRLF 001161 elf 879 881 885 
SERFLG 0011035 21# 
001115 21a 
SERRPC 001116 2l# 
SERRTB 001164 21f 
SERTTL O01112 214 
SFILLC 001156 ele 881 
SFILLS 001155 elf 881 
ADR 001120 214 
SGDDAT 001124 21n 
SGTSWR 005772 8794 888 
SHIOCT 007430 8854* 
SICNT 001104 21a 
SILLUP 007656 8914 
SINTAG 001135 214 879 
SITEMB 001114 21f 
SLF 001162 214 879 881 885 
SLPADR 001106 214 
SLPERR 001110 214 
SMAIL = **eeee 102 881 
SMNEW 006612 8794 
SMSWR 006601 8794 
SNULL 001154 214 881 
SOCNT 007266 8834* 
007270 8834 
SPASS 1100 214 
007652 8914 
SPWRDN 007512 102 8914 
SPWRMG 007646 8914 
SPWRUP 007564 8914 
SQUES 001160 214 879 881 885 
SRDCHR 006204 8794 888 
SRDDEC= *#ee8e (J 888 
SRDLIN 006324 8794 888 
$RDOCT 007272 8854 888 


$RDSZ = 000007 8794 
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SR2A = xeeeee J 888 
SSAVRE= *eeeee | 888 
SSAVR6 007662 8914* 
SSE TUP= 114 1014 102 879 
SSTUP = 177777 1014 
SSWR = 16 . 1 891 
STKB 001146 ola 773 879 
$STKS 001144 Pat 131 293 879* 
$™N = 000001 OF 
STPB 001152 ola 774* 789* 881* 
STPFLG 001157 ola 881 
TP 001150 21a 787 881 
STRAP 007432 102 8884 
STRAP2 007454 8884 
STRP = 12 8884 
TRPAD 007466 8884 
STSTNM 001102 21a 
STTYIN 006560 8794 
STYPBN= ***ee8 UJ 888 
STYPDS= *xeee8 YJ 888 
STYPE 006624 8814 888 
STYPEC 006774 879 8814 
STYPEX 007042 8814 
$TYPOC 007070 8834 888 
STYPON 007104 8834 888 
$TYPOS 007044 8834 888 
SOFILL 007267 88 34* ! 
. = 011721 184 194 21a 102 8324 875 8794 881 885 891 
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ERRORS DETECTED: 


CZNCDB ,, CZNCDB/CRt =CZNCDB 
RUN-TIME: 13 6 .7 SECONDS 


aed ed a aed eed oe nd ee ce ad ce cel cold 
BRRBRBBRRRBBRBBBBVER 


en na ee ee 
OR hana 
2 RRBR 


=8 


eeananaaanaaaca 
RRRRBRBRRBBRBBAA 


tenable 
R 


=3 
2 


011727 


31-AUG-79 


885 
885 


879 


000 


0 


891 
891 


648 
882 


CON 


652 
770 
883 


RO 
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682 
772 
884 


ABS 


GBL 


684 
781 
885 


D 
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692 
783 
887 


M 
20 


694 
792 
888 


700 
890 


702 
805 
891 


712 
807 


714 
834 


724 
836 


727 
878 


SEQ 0051 


738 
879 
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RUN-TIME RATIO: 30/20=1.4 
CORE USED: 18K (35 PAGES) 


